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