請問一下各位大大
如果我用開檔案的方式去抓字串
抓出來的字串要轉成Intrger或是Double
(比較想用Double來寫，因為有的數值小數點後有10位數)
然後字串中一共有四個數值 0.160771704 0 2.8 6.0
^^^^^^^^^^^ ^ ^^^ ^^^
1 2 3 4 <--數值的順序

每個數值間都有一個空白鍵的存在
我想用a、b、c、d分別代表字串轉成數值後的四個數值
我該怎麼寫成程式碼呢?
我的程式碼如下:
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

Open "E:\\test\\testfile.txt" For Input As #1 <---開檔的路徑
While Not EOF(1)
Line Input #1, tempstr
str = tempstr
Debug.Print str

For ii = 1 To 3 <----迴圈要讀數值的 前三個數值可在這顯示
pp = InStr(str, " ")
numStr = Trim(Left(str, pp)) <--刪除空白
Debug.Print numStr
'anum = Val(numStr) <----這行是想將字串轉成數值
'Debug.Print anum
str = Trim(Right(str, Len(str) - pp))

Next

Debug.Print str <-----顯示第四個數值
'bnum = Val(str)
Wend
Close

End Sub

如果我的字串有很多個(100個以上)
然後要將跑過迴圈後的字串轉換成數值再指定到a、b、c、d上
跑過後的字串要刪除掉
然後繼續讀下個字串一直到將字串讀完為止
請問一下我該怎麼寫呢?

可以麻煩會的大大回答我一下嗎?
拜託各位了
謝謝


--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.18.48.105