Question

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的字串会替换=号后面的文字呢？

Answer 1

兄弟，你真的没话说啊，别人告诉你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