作者ClubT (Debug能不能用杀虫济啊)
看板Visual_Basic
标题Re: [VB6 ]字串转数值的问题
时间Tue Jun 23 08:56:08 2009
利用
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
1F：→ MOONRAKER:为什麽 \ 要写两次啊？ 06/23 09:23
2F：→ resc:谢谢你的提示 我会再试试看的 谢谢 06/23 10:32
3F：→ resc:\ <--两次 是..不小心多打了一个 >.<|| 06/23 10:32
4F：→ MOONRAKER:想说吸语言才要这样 什麽时候这边也要了 06/23 11:48
5F：→ ClubT:喔喔...因为那部分是直接copy原po的部份XD 06/23 14:07
※ 编辑: ClubT 来自: 220.136.53.218 (06/23 14:07)