Question

VB修改txt

和程序的同目录下有一个1.txt
在1.txt中的第25、26行中都有个等于号
如何做到按下按钮后，用text1和text2的文字分别替换1.txt的25、26行中等于号后面的的文字？？？
并且替换后,在第25行中，等号后面的文字还要加上引号。。
如果两个文本框中的任意一个文字为空，这个按钮都不可用。

急用啊！！！
谢谢！
这很难吗？现在的人都那么不热心啊..

Answer 1

你别急啊，你觉得加上想，输入这么个代码需要多少时间？15分钟不为过吧？
代码如下。
=====================
Option Explicit

Private Sub Command1_Click()
Open App.Path & "\1.txt" For Input As 1
Open App.Path & "\2.txt" For Output As 2
Dim i As Integer, s As String
For i = 1 To 24
Line Input #1, s
Print #2, s
Next
Line Input #1, s
Print #2, Left(s, InStr(s, "=")) & """" & Text1.Text & """"
Line Input #1, s
Print #2, Left(s, InStr(s, "=")) & Text2.Text
Do Until EOF(1)
Line Input #1, s
Print #2, s
Loop
Close
Kill App.Path & "\1.txt"
Name App.Path & "\2.txt" As App.Path & "\1.txt"
MsgBox "完毕"
End Sub

Private Sub Text1_Change()
If Len(Text1.Text) = 0 Then
Command1.Enabled = False
Else
If Len(Text2.Text) > 0 Then Command1.Enabled = True
End If
End Sub

Private Sub Text2_Change()
If Len(Text2.Text) = 0 Then
Command1.Enabled = False
Else
If Len(Text1.Text) > 0 Then Command1.Enabled = True
End If
End Sub

Answer 2

再不难的代码都不是一瞬间写好的 都需要等待的 你才发一会就要答案你以为别人什么问题都先有准备吗？