70 lines
2.4 KiB
VB.net
70 lines
2.4 KiB
VB.net
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 |