VB 修改TXT指定字符

例如我有一个txt稳当里面有
ENV_DEV_SFCS_TEST_STATION = F/T-1 ENV_DEV_SFCS_TEST_STATION_NO = F/T-1-01 ENV_DEV_SFCS_TEST_EQUIP_NO = Test Fixt-1
我想起动vb程序,在text1里面输入 F/T-1-02,按下command就将ENV_DEV_SFCS_TEST_STATION_NO = 后面的值改成我输入的值,运行的时候,最好是抓字串,而不是抓行数修改

如果关键字符是ENV_DEV_SFCS_TEST_STATION_NO，我输入text的字串会替换=号后面的文字呢？

兄弟，你真的没话说啊，别人告诉你1+2=3 了，你还问1+3=？
Private Sub Command1_Click()
Dim i$, str1$
Open "d:\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, i
if instr(i,"ENV_DEV_SFCS_TEST_STATION_NO =") then
i="ENV_DEV_SFCS_TEST_STATION_NO = " & text1
end if
str1 = str1 & i & vbCrLf
Loop
Close #1
Open "d:\a.txt" For Output As #2
Print #2, str1
Close #2
End Sub

dim s() as string,ss() as string open "d:\123.txt" for binary as #1 s=split(input(lof(1),#1),vbcrlf) close #1 ss=split(s(6),":") 's(6)是第7行 ss(4)=text2.text '第4个冒号和第5个冒号间的内容替换为text2的内容 s(6)=join(ss,":") kill "d:\123.txt" open "d:\123.txt" for binary as #1 put #1,,join(s,vbcrlf) close #1

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息