vb怎样修改文件
① VB修改文本文件
Private Sub Command1_Click()
On Error GoTo err_cancel
Dim isFileName As String
'浏览要核亏添加的的文件
Form1.CommonDialog1.CancelError = True '取消报错 并且跳改伍神出执行！橘枯
Form1.CommonDialog1.DialogTitle = "选择要打开的Word文件"
Form1.CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
Form1.CommonDialog1.FileName = ""
Form1.CommonDialog1.ShowOpen
isFileName = Form1.CommonDialog1.FileName '获取完整路径
Text1.Text = isFileName
Exit Sub
err_cancel:
MsgBox "请正确选择文件。"
End Sub
Private Sub Command2_Click()
'多行数据
Dim strLine As String
Dim zzc As String
Dim fileNamePath As String
fileNamePath = Text1.Text
Open fileNamePath For Input As #1
Do Until EOF(1)
Line Input #1, strLine
If Mid(Trim(strLine), 1, 3) = "abc" Then strLine = "bcd"
zzc = zzc + strLine + Chr(13) + Chr(10)
Loop
Close #1
Open fileNamePath For Output As #1
Print #1, , zzc
Close #1
MsgBox "修改任务完成！"
End Sub
通过测试！
........张志晨：奉献知识==收获愉快..........
② 用vb 如何修改文件中的数据
建穗芦腔立一个text文本和两个command按钮，在属性框把text1.multiline文本的属性改为true
private
sub
command1_click()
'打开文本按钮
dim
a
as
string,
b
as
string
open
"c:\documents
and
settings\user\猜衫桌面\新建
文本文档
(3).txt"
for
input
as
#1
while
not
eof(1)
input
#1,
a
b
=
b
&
a
&
vbcrlf
wend
close
#1
text1
=
b
end
sub
private
sub
command2_click()
'保存文本按钮
open
"c:\documents
and
settings\user\桌面\新建哗岁
文本文档
(3).txt"
for
output
as
#1
print
#1,
text1
close
#1
end
sub
③ vb中怎么修改TXT文件内容啊
Open
App.Path
&
"\123.txt"
For
append
As
#1Print
#1,
"不要相信含让哥!"close
#用APPEND模式打开文件晌老拍
会检测是否有123.TXT文宴羡件没有就自动新建
④ VB怎么修改文本内容呢
打开原txt文件读取修改，放指晌森入新建txt文件内：
Sub ReplaceTxtFile()
Dim f1, f2
f1 = "D:\1.txt" '原文件路径
f2 = "D:\2.txt" '修改后唯亩文件路径
Open f2 For Output As #2
Open f1 For Input As #1
Do While Not EOF(1)
Line Input #1, vartemp '读取f1,修改谨岩f1
If InStr(1, vartemp, "身高", vbTextCompare) > 0 And InStr(1, vartemp, "男", vbTextCompare) > 0 Then
vartemp = Replace(vartemp, "男", "女")
End If
Print #2, vartemp '写入f2
Loop
Close #1
'Kill f1'可以删除f1
Close #2
End Sub
⑤ VB 如何修改TXT内容
楼上的别瞧不起VB6，其实这样的简单问题VB6处理起来也很简单，而且不需要FSO
1、最后一行写入数据：
Open "c:\缺丛123.txt" For Append As #1
Print #1, "要写丛型入的数据"
Close #1
2、修改某一行数据：
Dim s() As String
Open "c:\123.txt" For Binary As #1
s = Split(Input(LOF(1), #1), vbCrLf)
s(4) = "修改后的数据"渗扮猜 '修改第5行的数据（s(0)是第1行）
Put #1, , Join(s, vbCrLf)
Close #1
⑥ 用vb怎样这样修改文件名
Private Sub command1_click()
Dim d As String
d = Dir("c:\abc\*.txt")
Do Until d = ""
Name "c:\abc\" & d As "c:\abc\" & Text1.Text & d
d = Dir
Loop
End Sub
以上代码是把"c:\abc"目录的所有txt的文冲旦件名前面插入text1的内容。如果只想给最新创建的文件添桐判空加，那么可以在局瞎循环中用FileDateTime("c:\abc\" & d)检测文件的时间，找出最新的那个即可。
⑦ VB中怎么修改txt文件
Private Sub Command1_Click()
Dim S As String
Dim S1$, S2$, S3$, S4$
Open "d:\vbtxt2.txt" For Output As #1
Open "d:\vbtxt.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, S
If InStr(S, "王权") > 0 Then
x = InStr(S, "王权"如镇)
S1 = Left(S, x + 1)
S4 = S1
S2 = Right(S, Len(S) - x - 1)
For i = 1 To Len(S2)
S3 = Mid(S2, i, 1)
If S3 <> " " Then '找到王权后面的第一个答孝数字，即改渣举粗为7
S4 = S4 & "7"
Exit For
Else
S4 = S4 & S3
End If
Next i
S4 = S4 & Mid(S2, i + 1)
Print #1, S4
Else
Print #1, S
End If
Loop
Close (1)
Close (2)
Kill ("d:\vbtxt.txt") '删除原来的文件
Name "d:\vbtxt2.txt" As "d:\vbtxt.txt" '修改后来的文件名为原来一样
MsgBox "操作完毕！", , "OK"
End Sub