文件存储问题(基础问题,不过需要比较详细的解答)百分相送.

Question

我做了个一程序,有数据如下:
dim txt1,txt2 as string
dim pic(3,3) as longPrivate Sub Form_Load()
    txt1 = "第一句话"
    txt2 = "第二句话"
    pic(0,0)=165423644  '其实是一张图片的数据
    pic(0,1)=134323442
    ....
End Sub现在我将这些数据一起保存为一个文件,然后再取出来还原.
说白了也就是将文字和数组混合存在呀个文件里.然后再取出来赋值给那些变量,请问谁能给个完整的代码,读取都要.

Answer 1

Dim txt1, txt2 As String
Dim pic(3, 3) As LongPrivate Sub Form_Load()
    txt1 = "第一句话"
    txt2 = "第二句话"
    pic(0, 0) = 165423644 '其实是一张图片的数据
    pic(0, 1) = 134323442
    
    '写文件
    Open "C:\Data.txt" For Output As #1
    Print #1, txt1
    Print #1, txt2
    Print #1, pic(0, 0)
    Print #1, pic(0, 1)
    Close #1
    
    '读文件
    Open "C:\Data.txt" For Input As #1
    Input #1, txt1
    Input #1, txt2
    Input #1, pic(0, 0)
    Input #1, pic(0, 1)
    Close #1
End Sub

Answer 2

cuizm(射天狼),PIC那个数组是一个图片的数据,而且是可大可小的,再说一张很小的图片手工来加的话也太类了.最好存到文件里是这种形式:
///////////////////
第一句话
第二句话
165423644   165423644   165423644   165423644
165423644   165423644   165423644   165423644
165423644   165423644   165423644   165423644
165423644   165423644   165423644   165423644
/////////////
这样才好管理.所以那个数组最好用循环.

Answer 3

Dim txt1, txt2 As String
Dim pic(3, 3) As Long
DIM L，H AS LONGPrivate Sub Form_Load()
    txt1 = "第一句话"
    txt2 = "第二句话"
    pic(0, 0) = 165423644 '其实是一张图片的数据
    pic(0, 1) = 134323442
    
    '写文件
    Open "C:\Data.txt" For Output As #1
    Print #1, txt1
    Print #1, txt2
    FOR H=0 TO PICTURE1.HEIGHT-1
      FOR L=0 TO PICTURE1.WIDTH-1         Print #1, pic(H, L)      NEXT
    NEXT
    Close #1
    
    '读文件
    Open "C:\Data.txt" For Input As #1
    Input #1, txt1
    Input #1, txt2
    Input #1, pic(0, 0)
    Input #1, pic(0, 1)
    Close #1
End Sub