vb Input #1, s0, s1, s2, s3, s4, s5 '这句是什么意思

Question

Private Sub Command1_Click() Dim fn Dim s0 As String, s1 As String, s2 As String, s3 As String, s4 As String, s5 As String fn = "d:\\123.txt" '里面有几行内容一样的：0E04C9C79EE 20100710 230725 20100710 231042 56 Open fn For Input As #1 i = 1 Do Until EOF(1) Input #1, s0, s1, s2, s3, s4, s5 '这句是什么意思 Loop Close #1 End Sub

Answer 1

Input #1, s0, s1, s2, s3, s4, s5 '这句是什么意思 这句就是把 文件里面的内容读入变量, 其中可以是按空格分隔或者","号分隔. 如你说的 0E04C9C79EE 20100710 230725 20100710 231042 56 则s0="0E04C9C79EE" s1="20100710" s2="230725" 如此类推. ----------------------------- 补充回答: 如果你的内容是: 1 - 0E04C9C79EE 2 - 20100710 3 - 230725 4 - 20100710 5 - 12345 6 - 蝇 7 - jkljll 8 - DFJDS 9 - kjj525 10 - 00jk 因为代码是 Do Until EOF(1) Input #1, s0, s1, s2, s3, s4, s5 '这句是什么意思 Loop 在Do until 循环..所以会做到文件结束... 第一次时.. 值是 按顺序把 1~6 给了 s0 到 s5... 第二次继续 又把 7 开始给 s0 到 s5 了.... 会直到结束 --------------------------------- 刚刚试了一下... 原来用空格分隔是不行的, 所以 整个字符串到被赋到 s0 里... 要"," 分隔才可以正常... 另外 文件里的内容是 对应 s0~06 ..多了会提示错误...