vb数据保存到TXT和从TXT中读取

Question

如图，怎样把图1的的子程序“6”，子程序“2”，2个数字按图2数组的形式保存到TXT。即“6”是第一行第二列。“2”第二行第二列。然后我手动输入了这2个TEXT后把数据保存到txt的第一行第二列和第二行第二列。

Answer 1

55 66 55是从哪儿来的呢？追问

文本上的数字我自己输进去的

追答

我就看到了2和6 关闭 这样的字眼
55 66 这样的字眼没看到在哪儿
写程序时从哪儿取呢

追问

这样你会舒服点是吧，这个文件件多少数字不要紧吧，我只是想保存和读取第二列的数据，能理解吗？

追答

嗯 是的 这样就理解了；

下面是一个读文本的例子，打印出第二列

Private Sub Command1_Click()
    Dim s As String
    Dim t() As String
    Dim filename As String
    filename = App.Path & "\1.txt"
    Open filename For Input As #1
    Do While Not EOF(1)
    Line Input #1, s
    t = Split(s, " ")
    Print t(1)
    Loop
    Close #1
End Sub

追问

你试验过没有

追答

试验过。不知道你的文本是否和我的一致
我的第一个数字和第二个数字之间是一个空格。

追问

怎样把数据保存到txt的特定的行和列

追答追加写文件


Dim i As Integer, n As Integer, a(6) As Integer
n = 6
Open "D:\1122.txt" For Append As #1
Randomize
For i = 1 To n
    a(i) = Int(Rnd * 1000 + 1)
    Print #1, a(i)
  Next i
Close #1

覆盖写文件
Dim i As Integer, n As Integer, a(6) As Integer
n = 6
Open "D:\1122.txt" For output As #1
Randomize
For i = 1 To n
    a(i) = Int(Rnd * 1000 + 1)
    Print #1, a(i)
  Next i
Close #1

追加写文件和覆盖写文件的例子

看你需要哪一个？

本回答被提问者采纳