修正课表加载完成后依然占用文件的问题

MyBlueHorizon · Sep 19, 2021 · fe66b28 · fe66b28
1 parent 9ac35eb
commit fe66b28
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git 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
@@ -0,0 +1,7 @@
+Imports System.Net.Http
+Public Class NetworkLibrary
+    ReadOnly Client As New HttpClient
+    Public Shared Function InitializeNetworkConfiguration()
+
+    End Function
+End Class