初始化项目

BLV_Studio/Form2.vb

@@ -0,0 +1,70 @@
+Imports System.IO
+Imports System.Runtime.InteropServices
+Imports BLV_Studio.JpWordCheckForTTL
+Imports ExcelLibrary.SpreadSheet
+Imports Microsoft.Office.Interop.Excel
+
+Public Class Form2
+    Private m_strPath As String = Nothing
+    Private m_isCreateMode As Boolean = False
+    Private MISSING_VALUE As Object = System.Reflection.Missing.Value
+    Private m_AppMain As Application = Nothing
+    Private m_Workbook As Workbook = Nothing
+    Private m_Worksheet As Worksheet = Nothing
+    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+    Public Sub SurroundingSub(filepath As String)
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim pattern As String = "\S"
+        Dim rgx = New System.Text.RegularExpressions.Regex(pattern)
+        Dim res = rgx.Replace("6912", "*")
+
+        Console.WriteLine(res)
+        'Dim path As String
+        'Using dlg As New OpenFileDialog
+        '    dlg.Filter = "模型信息(*.xlsx)|*.xlsx"
+        '    If dlg.ShowDialog <> DialogResult.OK Then Return
+        '    path = dlg.FileName
+        'End Using
+
+        'Dim dic As New Dictionary(Of String, Dictionary(Of String, String))
+
+        'Dim excelWrite As ExcelHelper = ExcelHelper.CreateExcelHelper()
+        'excelWrite.OpenExcel(path)
+        'excelWrite.SelectPage(1)
+        'Dim i As Integer = 4
+        'Dim str As String
+        'While True
+
+
+        '    i = i + 1
+        '    Console.WriteLine($"{i}/{excelWrite.ReadGrid(7, i)}/{excelWrite.ReadGrid(8, i)}{excelWrite.ReadGrid(6, i)}")
+        '    If String.IsNullOrEmpty(excelWrite.ReadGrid(7, i)) Then
+        '        Exit While
+        '    Else
+        '        If excelWrite.ReadGrid(7, i).Equals("1") Then
+        '            Dim cdic As New Dictionary(Of String， String）
+        '            cdic.Add(excelWrite.ReadGrid(7, i), excelWrite.ReadGrid(8, i))
+        '            dic.Add(excelWrite.ReadGrid(6, i), cdic)
+        '            str = excelWrite.ReadGrid(6, i)
+        '        Else
+        '            dic.Item(str).Add(excelWrite.ReadGrid(7, i), excelWrite.ReadGrid(8, i))
+        '        End If
+
+
+        '    End If
+
+        'End While
+
+        'Console.WriteLine(excelWrite.ReadGrid(6, 5))
+        'excelWrite.Close()
+    End Sub
+
+    Private Sub txtPassword_TextChanged(sender As Object, e As EventArgs) Handles txtPassword.TextChanged
+
+    End Sub
+End Class