Re: [VB6 ]字串轉數值的問題

[ClubT (Debug能不能用殺蟲濟啊)]

        利用Split函數

        我會這麼做

Private Sub MacroWorkshop()
  Dim tempstr As String
  Dim numStr As String
  Dim str As String
  Dim pp As String
  Dim ii As Integer
  Dim anum As Double
  Dim bnum As Double
  Dim arr() As String

  Open "E:\test\testfile.txt" For Input As #1
  While Not EOF(1)
    Line Input #1, tempstr
    str = tempstr
    Debug.Print str
    arr = Split(str, " ")
    For ii = 0 To 3
      Debug.Print arr(ii)
    Next ii
  Wend
  Close
End Sub

        不過這方法的前提是:你的空白長度一定要是1(要一致)
        不然會有問題


--
《我的Blog》http://clubtblog.blogspot.com/

你的資料如下 (這是控制碼，每個人都會看到自己的資料)
《ＩＤ暱稱》 ()
《上站次數》次
《文章篇數》篇

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.53.218
→ MOONRAKER:為什麼 \ 要寫兩次啊？
→ resc:謝謝你的提示 我會再試試看的 謝謝
→ resc:\ <--兩次 是..不小心多打了一個 >.<||
→ MOONRAKER:想說吸語言才要這樣 什麼時候這邊也要了
→ ClubT:喔喔...因為那部分是直接copy原po的部份XD
※ 編輯: ClubT           來自: 220.136.53.218       (06/23 14:07)