VB 读取指定记事本文件第二行数据保存到另外一个记事本

Question

VB 读取指定记事本文件第二行数据保存到另外一个记事本

Answer 1

Private Sub Command1_Click()
Open App.Path + "\time.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
text1(i) = temp
i = i + 1
Loop
Close #1
bb = text1(1)
Open App.Path + "\1.txt" For Output As #1 '湖羲恅璃
Print #1, bb
Close #1
End Sub追问

您的代码 提示 不能给只读属性赋值

追答

我测试过，我的代码没有问题啊，你的文本和程序在一个目录下吗?
弄不好代码发上来我看看

追问

Open App.Path + "\ipdizhi.txt" For Input As #1

 Do While Not EOF(1)

      Line Input #1, m

      Text1(i) = m

      i = i + 1

      Loop

   Close #1

   ipdizhi.Text = Text1(1)

我这样写的，请问对吗

追答

Private Sub Command1_Click()
Open App.Path + "\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, m
Text1(i) = m
i = i + 1
Loop
Close #1
ipdizhi.Text = Text1(1)
End Sub

我调试过以上的代码也没有问题啊，是不是你的text1数组有问题啊，不 行的话你建一个数组存放吧。

本回答被提问者采纳