记录到TXT文本的问题

Question

Print #1, Mid$(aaa, Label1.Caption, 1);

Answer 1

记录text1的内容到WWW.TXT:
Private Sub Text1_Change()
    Label1.Caption = Label1.Caption + 1
    Open "g:\www.txt" For Append As #1
    Print #1, text1.text
    Close #1
End Sub

Answer 2

………………
我是说我写的那个程序保存到TXT文件后是一个字母一行
怎么才能叫他在TXT文件里写满一行后在换行？

Answer 3

Private Sub Text1_Change()
Label1.Caption = Label1.Caption + 1
aaa = Text1.TextText2.Text=Text2.Text+ Mid$(aaa, Label1.Caption, 1) 'Text2.text是临时缓存，其mutiline要设成trueEnd Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Open "g:\www.txt" For Append As #1
    Print #1, text2.text
    Close #1
End Sub

Answer 4

不想让别人看到
visible设成false

Answer 5

tg123(T.G.),你的代码我试了，很好用，可是必须要关闭程序才能记录，你不能让打一个字母就记录一个？？请回复我，会给你分的：）

Answer 6

print #1,txt;
然后需要换行的使用
print #1,""

Answer 7

vb里有个隐藏的函数Width设置输出行宽。
Dim I
Open "TESTFILE" For Output As #1   ' 打开输出文件。
VBA.Width #1, 5   ' 设置输出行宽为 5。
For I = 0 To 9   ' 循环 10 次。
   Print #1, Chr(48 + I)；   ' 每行输出五个字符。
Next I
Close #1   ' 关闭文件。

Answer 8

有点问题，这个函数只能在模块里使用，因为form有个width属性和它冲突
这样VBA.Width也不行，所以下面的代码只能在模块里使用
Dim I
Open "TESTFILE" For Output As #1 ' 打开输出文件。
Width #1, 5 ' 设置输出行宽为 5。
For I = 0 To 9 ' 循环 10 次。
Print #1, Chr(48 + I); ' 每行输出五个字符。
Next I
Close #1 ' 关闭文件。

Answer 9

又试了一下，这样
VBA.Width 1，5
只要不加#号，就在哪都可以用了

Answer 10

Width #1, 5 ' 设置输出行宽为 5。
上边这句总是出现“无效的属性”
去掉#后他说“编译错误”

Answer 11

Private Sub Text1_Change()
Label1.Caption = Label1.Caption + 1
aaa = Text1.TextText2.Text=Text2.Text+ Mid$(aaa, Label1.Caption, 1) 'Text2.text是临时缓存，其mutiline要设成trueEnd Sub
Private Sub Text1_Change()
Open "g:\www.txt" For Append As #1
Print #1, text2.text
Close #1
End Sub
少给几
个分就成。
有
抄袭
嫌
疑
。。
。
。
。

Answer 12

写错了！！！！Private Sub Text1_Change()
Label1.Caption = Label1.Caption + 1
aaa = Text1.TextText2.Text=Text2.Text+ Mid$(aaa, Label1.Caption, 1) 'Text2.text是临时缓存，其mutiline要设成true
Open "g:\www.txt" For Append As #1
Print #1, text2.text
Close #1
End Sub
！
！
！
！
！！
！
！
！
！
！
！
！
！
！

Answer 13

回复人： MattHgh(黎明破晓前) (  ) 信誉：100  2002-2-9 23:39:44  得分:0  
  
Width #1, 5 ' 设置输出行宽为 5。
上边这句总是出现“无效的属性”
去掉#后他说“编译错误”去掉#后前面得加"VBA."
VBA.Width 1, 5 

Answer 14

还要用print，print会在每次记录之后都加上换行符，用write吧。

Answer 15

print "data";  '最后加个分号
不会加换行的。不信自己试试

Answer 16

limengchen,谢谢你能这么热心的回答我的问题，但是你的代码，我按你说的修改后，TXT文件里只能记录下10个字符，然后就不能记录了……
MoYu，你的代码……你似乎没看懂我的意思，你的代码是把TEXT1里的内容重复记录了，就是我在TEXT1写123……，那么在TXT文本里记的就是
1
12
123
……
我要的不是这样，是我写12345…………，TXT里在同一行写12345……
希望可以帮我回答以下，谢谢
7分是有点少了，谁叫我贫分呢？呵呵
帮我回答了，我就在专门发一个帖子给你们分好了

Answer 17

什么叫一行写满？如果你自己规定过一行写多少字符的话，可以写一个计算写入字符数的函数，然后在写完的一行后面加上一个回车符chr(13)不就可以了

Answer 18

回复人： MattHgh(黎明破晓前) (  ) 信誉：100  2002-2-10 17:32:47  得分:0  
  
limengchen,谢谢你能这么热心的回答我的问题，但是你的代码，我按你说的修改后，TXT文件里只能记录下10个字符，然后就不能记录了……
MoYu，你的代码……你似乎没看懂我的意思，你的代码是把TEXT1里的内容重复记录了，就是我在TEXT1写123……，那么在TXT文本里记的就是
1
12
123
……
我要的不是这样，是我写12345…………，TXT里在同一行写12345……
希望可以帮我回答以下，谢谢
7分是有点少了，谁叫我贫分呢？呵呵
帮我回答了，我就在专门发一个帖子给你们分好了 
我让你看的是我的第2个代码。尽管我没实验，但我认为它应该没问题。

Answer 19

Private Sub Text1_Change()
dim l as long
dim s as string
Label1.Caption = Label1.Caption + 1
aaa = Text1.Text
Open "g:\www.txt" For Append As #1
for l=1 to len(text1.text)
  s=mid(aaa,l,1)
  if (s<>vbcr) and (s<>vblf) then
    Print #1, s
  endif
next l
Close #1
End Sub