VB中TEXT如何往当前目录下的TXT文本指定的位置写入数据？

Question

我这里的TXT文本是：19JUN2013★00241CBX★9KG★60★13347455★UN★528189555★000008333★[)>0613347455601JUN528189555000008333BOKLT3215★4000010410★4★★★★★★★★★END
这个文本是作为BarTender条码打印软件的数据库的数据源的，VB中里的日期，零件号，重量等，是如何写到TXT相对应的★位置？谢谢.

Answer 1

1、打开数据库文件，把要输出的数据表记录生成一个 RecordSet 数据记录集，然后把要输出的字段内容用循环的方式输出到一个文本文件就好了。
当然要看你的数据库是什么类型的了, Access,SQL 程序是有些区别的.
2、给你一个生成文本文件的调用过程,参考一下
Private Sub SaveTodayTestData(tData As String)
Dim FileNum As Long
Dim fileName As String
On Error GoTo SaveErr
'***数据文件路径
If Len(Dir$(App.Path + "\Data", vbDirectory)) = 0 Then MkDir App.Path + "\Data" ‘文件是否存在
fileName = App.Path + "\Data\" + Format$(Date, "YYYY") + Format$(Date, "MM") + Format$(Date, "DD") + ".txt"
’按日期生成一个文本文件的名称，如：20131017.Txt
FileNum = FreeFile()
Open fileName For Append As FileNum
Print #FileNum, tData
Close FileNum
Exit Sub
SaveErr:
MsgBox "保存测试错误！" + Chr$(13) + Error$, 48, "重要提示"
Exit Sub
End Sub

Answer 2

不需要用到数据库，太麻烦了。
直接用open语句打开txt文本文档，用二进制方式打开，把要写的东西转换成字节数组，写入文件的指定位置（文件的第一个字节为地址0）。

追问

谢谢。可惜我是新手，能帮我写一下么？