VB学习:文本插入与编辑处理实例

VB中操作文本文件的方法有很多种。以下例子是我自己做项目或者回答网友提问时举的。他们很有代表性，希望能给朋友们一些启发。

函数:在文本中删除、替换或插入一行
'作者:soho_andy
'参数:
'strSourceFile原始文件的全名
'strTargetFile新文件的全名
'

子操作文件中的一行(strsource file为string，str target file为string，intRow为Long)
Dim filenum为Integer
Dim fileInfo()为String
Dim i为Integer
Dim j为Integer

FileNum = free file
Open strsource file For Binary为# FileNum
file contents = Space(LOF(FileNum))[/br 根据回车符

Filenum = free file
ifdir(str target file，Normal)" "然后
kill str target file
end if
dimfilestr()as string

'删除一行代码块
open str target file for append as # Filenum
'循环I = 0的每一行以绑定(fileinfo)-1 [/br

替换一行代码块
打开字符串目标文件以追加为# filenum
'循环每行
for I = 0到bound (fileinfo)-1
如果I = introw-1，则
print # filenum，"

接下来
关闭# filenum

'插入一行代码块
打开str目标文件以追加为# filenum
'将I = 0的每一行
循环到UBOUND (fileinfo)-1 [/ Br/]如果I = introw-1，则
print # filenum，"您要在该行中插入的内容"
Print #filenum，fileInfo(i)'保留原始行，向后移动一位[/br

另一个解决实际问题的例子
'
'用户的请求
'有一个文件a.txt，里面存储了两行数据，数据之间用逗号隔开。现在需要读取第一行的奇数数据，写入另一个文本文件(b.txt)的第一行。同样，第二行的奇数数据
'例如:
' File a.txt如下:
' 1，2，3，4，5
' 6，7，8，9，10
'操作完成后，file b.txt应该是[

Author: soho_andy (ice)
'参数:
'strSourceFile原始文件的全名
'strTargetFile生成的新文件的全名。

Sub提取奇数位数据(strSourceFile为字符串，strTargetFile为字符串)
Dim filenum为整数
Dim fileContents为字符串
Dim fileInfo()为字符串
Dim i为整数
Dim j为整数

Dim tmpDemData为字符串
FileNum = free file
Open strSourceFile为二进制文件# FileNum
file

打开str目标文件以追加为# filenum
'循环每一行
for I = 0以绑定(fileinfo)-1
filestr = split(trim(fileinfo(I))，"，" " '用逗号分隔每一行的数据
tmpdemdata = " "
for j = 0以绑定(filestr)
'确定它是否是奇数位
如果(j mod 2) = 0，则
tmpdemdataFilestr(j)
ElseIf j 0和j UBound(Filestr)Then
tmpDemData = tmpDemData & "，"
End If
Next
'保存一行，如目标文件
print # filenum，tmpDemData
Next
close # filenum
msgbox " Finished "

Privatecommand1 _ click ()
提取奇数数据" d: \ aa.txt "，" d: \ bb.txt"
end sub