Question

怎么将vb中3个textbox的内容分三列写入到txt中？

Answer 1

Private Sub Command1_Click()
On Error Resume Next
a = Split(Text1.Text, vbCrLf)
b = Split(Text2.Text, vbCrLf)
c = Split(Text3.Text, vbCrLf)
n = IIf((UBound(a) > UBound(b)), UBound(a), UBound(b))
n = IIf((n > UBound(c)), n, UBound(c))
For i = 0 To n
s = s & a(i) & " " & b(i) & " " & c(i) & vbCrLf
Next
'这里写上打开txt输出s的代码
End Sub

Answer 2

open app.path & "\txt1.txt" for output as #1
print #1,text1,text2,text3
close #1
http://wenku.baidu.com/view/9c6767e9172ded630b1cb6a6.html

Answer 3

如果textbox的内容中间有固定的分隔符，例如换行，那么可以用split函数把字符串按照固定分隔符拆分成数组。两个textbox内容格式如果类似，都有固定分隔符且数量也相同，那么可以拆分成两个元素数相同的数组，用一个循环可以同时输出两个数组的内容，每一个相同序号的两个数组的元素值用固定的制表符连接，例如空格或缩进，输出到txt的一行中。

不知道我说的明白否。

Answer 4

txt不分列，所以没办法把3个textbox的内容分列填入

追问

假如有两个textbox，分别显示的是excel表格中的两列内容。然后将这两个textbox的内容写入到txt中。其中一个textbox读取的excel中某列中间有空格，怎么样才能让他按空格交替写入呢

追答

你可以把先把textbox里的空格替换为别的字符，比如"，"，其实空格就空格吧，不替换也没事；
然后再用楼上那种方法写入文本文件，
或者每个textbox读取固定长度的一段字符串，比如10个字符或者汉字，然后算为txt某行1列的内容

Answer 5

是写入到txt文件中吗？如果是txt文件，只需要每个textbox值的后面跟个换行符就行啦