2022年VB文件操作小结 .pdf

《2022年VB文件操作小结 .pdf》由会员分享，可在线阅读，更多相关《2022年VB文件操作小结 .pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、*文件统计替换字符Private Sub Form_Load() On Error Resume Next Dim Handle As Integer, Filetext As String Handle = FreeFile Open C:MYDIRDATA.TXT For Binary As #Handle 打开一个文件（二进制形式打开）Filetext = Space(LOF(Handle) Get #Handle, , Filetext Close #Handle 读取文件Dim A As Long, B As Long A = FileLen(C:MYDIRDATA.TXT) B =

2、 Len(Replace(Filetext, $, ) 计算差值Handle = FreeFile Open C:Mydirres.txt For Output As #Handle Print #Handle, A - B Close #Handle 保存End Sub *读取文件内容到字符串变量Private Sub Command1_Click() Dim s As String Open c:sql.txt For Binary As #1 s=space(lof(1) get #1,1, s Close #1 Debug.Print s end sub *把一个文件复制dim buf

3、 as string Open C:test.txt for Input as #1 line input#1,buf 当用过后指针本来就是自动到下一行的!你还可以用二进制方式打开文件并自己定义读入或写入多少! dim buf()as byte Open C:test.exe for binary as #1 redim buf(1 to lof(1) get#1,buf close #1 open D:test.exe for binary as #1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - -

4、- - - - 第 1 页，共 4 页 - - - - - - - - - put #1,buf close#1 这个程序实现把C:test.exe 复制到 D 盘*寻找字符1.Private Sub Command1_Click() 2.Dim i As Long 3.Dim b As Byte 4.5.Open c:demo.dat For Binary As #1 6.7.Do While Not EOF(1) 8. i = i + 1 9. Get #1, , b 10. If b = Asc(A) Then Print i 11.Loop 12.Close 13. End Sub *

5、直接读文件最后一行Private Sub Command1_Click() Dim Bool As Boolean Dim NextChar As Integer Dim MaxSize As Long Dim Mychar As String Bool = False Open e:123.txt For Input As #1 Open file for input. MaxSize = LOF(1) Get size of file in bytes. The loop reads all characters starting from the last. For NextChar =

6、 MaxSize To 1 Step -1 Seek #1, NextChar Set position. Mychar = Input(1, #1) Read character. If Mychar = Chr(10) And NextChar MaxSize Then Seek #1, NextChar - 1 Mychar = Input(1, #1) If Mychar = Chr(13) Then Seek #1, NextChar + 1 Line Input #1, Mychar Exit For End If End If Next NextChar Close #1 Clo

7、se file. End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 4 页 - - - - - - - - - *text文件导入到EXECL 中Sub Macro1() Macro1 Macro With ActiveSheet.QueryTables.Add(Connection:= _ 桌面 excel 学习計量表AG-Data0369.txt _ , Destination:=Range($A$1) .Name = 0369_1 .FieldName

8、s = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 936 .TextFileS

9、tartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1,

10、1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 4 页 - - - - - - - - - End With End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 4 页 - - - - - - - - -