ㄚ嘉 發問時間: 電腦與網際網路程式設計 · 1 0 年前

vb6 list 如何讀取

各位大大您好:

我有幾個問題想請各位大大解答一下

我利用Command1把檔案show到 list 1

ex:(原始檔案)

F450

G90G01Y-3.220858Z5.0

Z-.424555

G92Z-.414555

G90G01F10

Z-1.414555

G90G01F10.0

Y-3.220858Z-1.414555

Y-3.217057Z-1.407028

然後我要利用Command2 讀取list 1 資料然後加以運算或者文字置換後,把運算後及文字置換後show 到 list 2

(處理過後的檔案)

F450

G90G01Y-3.220858Z5.0

Z-.424555

G92Z-.414555

G90G01F10

Z-1.214555

G90G01F2.0

Z-1.414555

G90G01F10.0

Y-3.220858Z-1.414555

Y-3.217057Z-1.407028

Y-3.213248Z-1.399549

已更新項目:

Jerod 你好:

很抱歉沒有把我的問題敘述的很詳細,讓你不了解我的需求

感謝!W.J.S大師的解答!

另外請問Replace(s, "X", "Y-") 這行應該放置那邊?

怎麼修改?才能文字置換呢?

2 個解答

評分
  • W.J.S.
    Lv 7
    1 0 年前
    最佳解答

    Private Sub Command1_Click()

    Dim f&, s$

    f = FreeFile

    Open "C:\Test.txt" For Input As #f

    Do Until EOF(f)

    Line Input #f, s

    If s <> "" Then List1.AddItem s

    Loop

    Close #f

    End Sub

    Private Sub Command2_Click()

    Dim s$, i&

    For i = 0 To List1.ListCount - 1

    If i = 5 Then

    List2.AddItem Left(List1.List(i), 1) & Val(Mid(List1.List(i), 2)) + 0.2

    List2.AddItem "G90G01F2.0"

    End If

    List2.AddItem List1.List(i)

    Next

    End Sub

    2008-08-13 22:08:28 補充:

    List2.AddItem List1.List(i)

    List2.AddItem Replace(List1.List(i) , "X" , "-Y")

  • Jerod
    Lv 4
    1 0 年前

    所以你的問題是什麼?

還有問題?馬上發問,尋求解答。