diff --git a/src/ClassTable/LegacyExcel.vb b/src/ClassTable/LegacyExcel.vb index 94940b4..bb15dab 100644 --- a/src/ClassTable/LegacyExcel.vb +++ b/src/ClassTable/LegacyExcel.vb @@ -13,6 +13,7 @@ Public Class LegacyExcel Dim TableString As String TableString = "{" + "RangeA" + ":" + Chr(34) & TableSheet.Cell("A3").Value & Chr(34) + "," + "RangeB" + ":" + Chr(34) & TableSheet.Cell("A4").Value & Chr(34) + "," + "RangeC" + ":" + Chr(34) & TableSheet.Cell("A5").Value & Chr(34) + "," + "RangeD" + ":" + Chr(34) & TableSheet.Cell("A6").Value & Chr(34) + "," + "RangeE" + ":" + Chr(34) & TableSheet.Cell("A7").Value & Chr(34) + "," + "RangeF" + ":" + Chr(34) & TableSheet.Cell("A8").Value & Chr(34) + "," + "RangeG" + ":" + Chr(34) & TableSheet.Cell("A10").Value & Chr(34) + "," + "RangeH" + ":" + Chr(34) & TableSheet.Cell("A11").Value & Chr(34) + "," + "RangeI" + ":" + Chr(34) & TableSheet.Cell("A12").Value & Chr(34) + "," + "RangeJ" + ":" + Chr(34) & TableSheet.Cell("A13").Value & Chr(34) + "," + "RangeK" + ":" + Chr(34) & TableSheet.Cell("A14").Value & Chr(34) + "," + "RangeL" + ":" + Chr(34) & TableSheet.Cell("A15").Value & Chr(34) + "}" + fileStream.Close() Return TableString End Function diff --git a/src/ClassTable/Libraries/NetworkLibrary.vb b/src/ClassTable/Libraries/NetworkLibrary.vb new file mode 100644 index 0000000..570afb9 --- /dev/null +++ b/src/ClassTable/Libraries/NetworkLibrary.vb @@ -0,0 +1,7 @@ +Imports System.Net.Http +Public Class NetworkLibrary + ReadOnly Client As New HttpClient + Public Shared Function InitializeNetworkConfiguration() + + End Function +End Class