列举文本文件操作方法,不是shell path & wenjian, vb....先抛砖:1 ADODB.Stream
2 open path & file for append (output,input,binary) as #1
3 fso.CreateTextFile
4 CreateObject("Scripting.FileSystemObject")
5 ActiveSheet.QueryTables.Add(Connection:="text;" & path & file, Destination:=...) ’EXCEL
6 Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & "test.txt", Comma:=True ’EXCEL
7 fileReader = My.Computer.FileSystem.ReadAllText(app.Path & "\test.txt") ' 没用过,谁用过?
8 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath _
& ";Extended Properties=""text;HDR=no;FMT=Delimited""" ‘(ADO)
谢谢各位告之。
2 open path & file for append (output,input,binary) as #1
3 fso.CreateTextFile
4 CreateObject("Scripting.FileSystemObject")
5 ActiveSheet.QueryTables.Add(Connection:="text;" & path & file, Destination:=...) ’EXCEL
6 Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & "test.txt", Comma:=True ’EXCEL
7 fileReader = My.Computer.FileSystem.ReadAllText(app.Path & "\test.txt") ' 没用过,谁用过?
8 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath _
& ";Extended Properties=""text;HDR=no;FMT=Delimited""" ‘(ADO)
谢谢各位告之。
'1、拷贝文本文件
filecopy "文本.txt" "d:\文本2.txt" '这个算不算
'2、分隔文本文件 这个算不算
fileInfofile.origfileName=splitfileName
fileInfofile.origProjsize=fileLen(splitfileName)
.....
'3、DOS文件转换成UNIX文本文件