拜託各位高手幫我看一下這個文字檔的處理問題...
我有一個文字檔,內容可能有1~N筆的資料,若我想在每一筆的資料前加上序號,請問我該如何做呢?
例如:一個a.txt的文字檔,內容如下
L041H36
L081136
DF1925
P150648
P212048
CF053444
HT1925
DSR2200...
我想把它做成
0010 L041H36
0020 L081136
0030 DF1925
0040 P150648
0050 P212048
0060 CF053444
0070 HT1925
0080 DSR2200
0090...
我應該怎麼做呢?
這個有點急ㄟ,請各位高手幫幫我好嗎?先謝謝您ㄌ...
創作者介紹

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 PIXNET 留言(2) 人氣()


留言列表 (2)

發表留言
  • 小琳
  • :::程式如下:
    Private Sub Command1_Click()
    Dim temp As String
      Dim i As Integer
      
      Open "m:\aa.txt" For Input As #1
      Open "m:\bb.txt" For Output As #2
      
      Do While Not EOF(1)
        Line Input #1, temp
        i = i + 10
        Print #2, Format(i, "0000") & " " & temp
      Loop
    End Sub
  • 小菁
  • 問題解決了,謝謝小琳...^__^
找更多相關文章與討論