Question

VB6.0写入数据到TXT文档

Private Sub Command9_Click()
Dim StringA As String
Open App.Path & "\12.txt" For Output As #1
Print #1, "12"; "999";
Close #1
End Sub
以上代码可以把数据12999写到12.TXT文档的第一行，但是我想指定999写到TXT第一行的第N个字节处 怎么办？ 我没分了 ，请大家帮帮忙 谢谢

Answer 1

for output方式打开的文件为顺序型，要想跳过前面的部分直接在第N个字节写入，得先用空格之类的数据占前面N-1个空位。另：楼上你少打个分号O(∩_∩)O

追问

你好，比如我是 Print #1, Text1.text; 我用Text1控件写入到TXT，我要怎么让Text1固定输出十个字符，不管TEXT1里面输入1 还是22 都让TEXT1输出10个字符，1加9个空格=10个字符，22加8个空格=10个字符，谢谢你！ 请帮帮忙，

追答

楼上的方法正确，而且最方便，tab(N)不是隔前面12的N个字符，而是定位到第N列，前面已经有了12，那么tab(10)会定位在第10列，也就是加入了7个空格，前面一个9个位置（12 两个加空格7个）

如果要把空格加在右边可以用定长字符串
dim s as string *10
s=text1.text '如果text1里面是22，那么s实际上是22加8个空格
print #1,s;
如果要加在左边的话楼上的方法好用

Answer 2

这一行代码变成这样 Print #1, "12"; tab(N) "999";就可以了

追问

谢谢你的回答，tab(N) 只是隔前面12的N个字符，我想要指定到TXT行开始的N位字符， 请帮忙