好的。谢谢。就一个文本，一行语句。我上传了这个文本和BAR TENDER的一个标签格式。BAR TENDER的这个标签格式的数据源就是这个文本里的内容。

就一个文本，一行记录。压缩包里有文本，和一个BAR TENDER的条码标签，条码标签里德数据源就是这个文本里德内容。

Dim A
Private Sub Form_Load()
A = Split("19JUN2013★00241CBX★9 KG★60★13347455★UN★528189555★000008333★[)>0613347455601JUN528189555000008333        BOKLT3215★4000010410★4★★★★★★★★★END", "★", -1, 1)
End Sub
Private Sub Command1_Click()
A(0) = Text1
A(1) = Text2
A(2) = Text3
A(3) = Text4
A(4) = Text5
A(5) = Text6
A(6) = Text7
A(7) = Text8
A(8) = Text9
A(9) = Text10
A(10) = Text11
Dim s As String
s = A(0) & "★" & A(1) & "★" & A(2) & " KG" & "★" & A(3) & "★" & A(4) & "★" & A(5) & "★" & A(6) & "★" & A(7) & "★" & A(8) & "★" & A(9) & "★" & A(10) & "★"
Open "d:\2.txt" For Output As #1
Print #1, s
End Sub
刚才用最笨的方法写了一下，就是运行的时候，第二次点击COMMAND时报错，文件已打开。

忘了Close #1,不好意思

帮你简单弄了个，可以修改时间和重量,压缩包里有一个可直接执行的程序，生成的DATA.TXT文件和该程序在同一个目录，你看看，是不是你需要的。

嗯，谢谢版主。现在还有一个问题，就是在TEXTBOX里输入一行文字，光标会自动选中它？我这里有个扫描枪，每次会把条码信息扫描到TEXT里，但我只有扫描到TEXT后自动全选中它，才不会影响扫描枪的第二次第三次、、、扫描？也就说第二次第三次才能输入进去。版主这里有没有这样的例子？

方法setfocus让文本框获得输入焦点即可