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
|