ffff = combo1.text
open "路径.txt" for input as #1 '读出
do while not eof(1)
line input #1 ,k
s = s & k & vbcrlf
loop
close #1
s = replace(s,"dddd",ffff)
open "路径.txt" for output as #1 '写入
print #1 , s
close #1
然后用Replace函数处理下再写回去就行了
如果文件比较大就分段处理
如何用VB编写替换.txt文件里的指定字符啊?
dim k as string,s as string ffff = combo1.text open "路径.txt" for input as #1 '读出 do while not eof(1)line input #1 ,k s = s & k & vbcrlf loop close #1 s = replace(s,"dddd",ffff)open "路径.txt" for output as #1 '写入 print #1 , s close #1 ...
VB求助:用text.text的字符串内容替换TXT文本文件里的特定字符...
a = Split(Text1.Text, vbCrLf)For i = 0 To UBound(a)Print a(i) '分别取得文本框各行内容,以便用来替换指定内容 Next 下面只是替换$SYS$,分别替换建议楼主另开一个30分的帖子,也只是建议,也请楼主不要追问...Private Sub Command1_Click()Open "txt文本" For Input Access Read As #1...
大家好,请问vb.net如何将一个txt文本文件中指定位置的内容替换掉??
Dim txt As String = My.Computer.FileSystem.ReadAllText("c:\\新建 文本文档.txt", System.Text.Encoding.Default) '先读取文本中所有内容 My.Computer.FileSystem.WriteAllText("c:\\新建 文本文档.txt", "", False, System.Text.Encoding.Default) '清空原文本内容 Dim AllLine() = Split(txt...
VB怎么改写TXT中某段字符
'参数: fName = 完整的文本文件路径名+文件名 ' LineNumber = 要替换的行数(数字) ' LineText ='要替换的字符文字 '返回: True 为正确执行, false 其它失败错误 '需要: 引用-- Microsoft Scripting Runtime 'Example: 把C目录下的MYFILE.TXT的第三行的文本替换为 Abcde ' ReplaceLine("C:\\Myfile.txt...
VB读取TXT,并将TXT指定字符串替换
FileNumber2 = FreeFile Open "D:\\abc.txt" For Output As #FileNumber2 '打开要写入的文件 While Not EOF(1) ‘直到最后一行 Line Input #FileNumber1, Str ’按行读取文件 Str = Replace(Str, "@02", "大") ‘替换第一个字符 Str = Replace(Str, "@03", "100") '替换第二个...
如何用vb更改txt文件中某一行的内容
Dim strnow = Format(Now(), "yyyymmddhh")TextBox1.Text = Replace(TextBox1.Text , strnow , strnow & " " & "你的内容")改了一下，原理就是用replace重写
VB 怎么更改TXT编码格式和读取Txt指定字符
VB可以通过CreateObject函数来实现打开UTF-8编码格式文本文件，将它显示于文本框中。并可通过Print # 语句将格式化显示的数据以ANSI格式写入顺序文件中。CreateObject函数，创建并返回一个对 ActiveX 对象的引用。Print # 语句，将格式化显示的数据写入顺序文件中。以下是实现代码：Private Sub Command1_Click()...
VB替换文本中指定的字符
Dim 文件 As String, i Private Sub Command1_Click()Open "d:\\1.txt" For Binary As #1 ‘打开txt文件（目录可以更改），并将内容赋给变量“文件”，这种方式读入文件不会出现“超出文件末尾”的错误。文件 = StrConv(InputB(LOF(1), #1), vbUnicode)Close #1 Print 文件 '为了测试文...
VB 文本指定行字符串的替代
set file=fso.opentextfile("1.txt")while file.atendofstream<>true h=h+1 n=file.readline:s=split(n):l=ubound(s)for i=0 to l m(h,i+1)=s(i)next wend file.close m(2,2)="12":m(3,1)="10" '可以根据你想替换的内容进行修改 for i=1 to 3 for j=1 to 3 if j=...
VB 实现txt字符替换
Dim tmpStr As String, resStr As String, a As String '读取txt Open "d:\\vb.txt" For Input As #1 Do While Not (EOF(1))Input #1, a tmpStr = tmpStr & a Loop Close #1 '开始处理字符串 resStr = Replace(tmpStr, "abc", "xyz")'保存 Open "d:\\vb_replace.txt" For ...
