请问一下各位大大 如果我用开档案的方式去抓字串 抓出来的字串要转成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