随笔分类 -  VB code

摘要：Imports System.TextImports Microsoft.VisualBasic.FileIOImports Shell32Public Class Form1 Protected Sub errorInfo(ByVal filePath As String) Dim csv()() As String Dim fs = Microsoft.VisualBasic.FileIO.FileSystem.GetFiles("D:\ALF_FILE\UPLOAD\Batch\data\", SearchOption.SearchTopLevelOnly, &quo 阅读全文

摘要：Imports System.TextImports Microsoft.VisualBasic.FileIOImports System.Text.RegularExpressionsImports Shell32Imports Microsoft.VisualBasicPublic Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Call anyTXT2CSV(TextBox1.Text) End Sub Protected 阅读全文