VB中如何将Text1里的内容写到1.TXT文本里第一行的第一个★后面？比如说1.TXT文本就一行内容：201309★3 KG★345456★UN★234545645，现在我在VB里的TEXT1里写了10，那么文本1.TXT的内容由原来的“201309★3 KG★345456★UN★234545645”变成“201309★10KG★345456★UN★234545645”？求教了。最近老大要写个小东西，本人新手不会啊。

Private Sub Command1_Click()
    Dim buf As String
    Open "c:\123.txt" For Input As #1
    Line Input #1, buf
    Close #1
    Dim istart As Integer
    Dim iend As Integer
    istart = InStr(buf, "★")
    iend = InStr(buf, "KG★")
    Dim s As String
    s = Mid(buf, istart + 1, iend - istart - 1)
    buf = Replace(buf, s, Text1.Text, 1, 1, 0)
   
    Open "c:\123.txt" For Output As #1
    Print #1, buf
    Close #1
End Sub

非常非常感谢。这个论坛真不错。希望能在这里开启我的VB学习。再次感谢。

大侠你好。不好意思还得请教你一下，我这里的TXT文本是：19JUN2013★00241CBX★9KG★60★13347455★UN★528189555★000008333★[)>0613347455601JUN528189555000008333        BOKLT3215★4000010410★4★★★★★★★★★END
这个文本是作为BarTender条码打印软件的数据库的数据源的，画面：
，画面的文本框可以输入重量，大小包装数量等等。
所以这里面的数据位置是不能改变的。不然Bar Tenderder打印出来的标签和数据对不上。
取连个★的中间位置的话会改变其他数据的位置。
Private Sub Command1_Click()
    Dim buf As String
    Open "d:\DATA.txt" For Input As #1
    Line Input #1, buf
    Close #1
    Dim istart As Integer
    Dim iend As Integer
    istart = InStr(buf, "★")
    iend = InStr(buf, "KG★")
    Dim s As String
    s = Mid(buf, istart + 1, iend - istart - 1)
    buf = Replace(buf, s, Text1.Text, 1, 1, 0)
   
    Open "d:\DATA.txt" For Output As #1
    Print #1, buf
    Close #1
End Sub

谁让你 没说清楚呢 那两个★之间代表神马信息
查找 第二个★ 和第三个★
把他们中间的 多少kg  替换成  重量的哪个文本框中的数组文本 拼上字符串 KG

自己去 思考思考去

谢谢

没想出来，是不是要以二进制的方式打开文件，把要写的东西转换成字节数组再写进去？唉，我底子太差了

你自己有没有搞清楚每个参数的位置？比如就我看格式如下（其中打问号的都是我没看出来属于什么参数）：
日期★零件号？★重量★？60★？13347455★？UN★？528189555★？000008333★？[)>0613347455601JUN528189555000008333        BOKLT3215★SAP号？★？4★★★★★★★★★END

版主好！
     文本里19JUN2013（日期）★3KG（重量）★60（大包装数量）★13347455（零件号）★UN★528189555（起始序列号）★000008333★[)>0613347455601JUN528189555000008333（CONTATNER TYPE)        BOKLT3215★4000010410（SAP号）★4★★★★★★★★★END,其他的都是常量，不需要写。

是不是每个文本文件就一条记录？要不你发个文本过来我看看，一般来说用split函数拆分，在对应位置插入所需数据后再重构即可，应该不难解决。
另：小包装数量在哪个位置？

[ 本帖最后由 lowxiong 于 2013-10-17 22:07 编辑 ]