onclick='Odds(942057)'
我的文本里面有很多个类似于这个样子的！我想把后面所有后面的数字全部提出来！
应该怎么做呢？
谢谢各位了！
顺便说一下我是做一个网页解析的程序！所以会有很多“=”和 “onclick”的之类的！尽可能可以严谨点！
所以我就是想知道要怎么筛选了...onclick='Odds()这个就是固定的了！你可以帮我写出来吗？分数不够我可以加！
追答我需要一个包含源代码的TXT文件~~ 请E-Mail到：[email protected]
追问我把文件发到你E-mail了你看看吧！
追答我已经把工程源代码文件E-Mail给你了！你自己查收看看！
本回答被提问者采纳我里面有好多类似这种的哦！我想把所有的数字都提取出来放到数组中要怎么样弄呢
追答先建立个数组啊，每执行上面的过程一次，数组下标就增加1，给当前数组赋值，一直循环下去就行啊
我这个是网页解析用途的呀！里面不单单就这几个字符和数字的！你这样是不得的...
追答这只是一个示例，你的文本放在什么地方？如果的记事本中，可以一次读一行文本，再按这个代码的形式，把这一行中的数字提出来，写入另一个记事本中，道理是相通的。只是我不知道你的原始文本在哪？所以写了这样的示例
追问pt: onclick='EuropeOdds(957080)' style=(957080)'><img src='iajavascript: onclick='EuropeOdds(957081)' s
比如说这样！
onclick='EuropeOdds(957080)'
onclick='EuropeOdds(957081)'
怎么把这两个里面的数字提取出来放到个数组里面？
给个代码，假设你的文本全部保存在E盘的A.txt中，在E盘再建一个B.txt文本文件。这个代码能把A中所有数据提取出来，放到B中，试一下。放到B中可能，读到数组中更简单，这样做只是为了验证一下，是否是你想要的结果。
Private Sub Command1_Click()
Dim strA As String
Dim I, X As Long
Dim Num, Y As String
Dim nFlag As Boolean
Open "E:\A.txt" For Input As #100
Open "E:\B.txt" For Append As #101
Do While Not EOF(100)
Line Input #100, strA
nFlag = False
Num = ""
X = Len(strA)
For I = 1 To X
Y = Mid(strA, I, 1)
If IsNumeric(Y) Then
nFlag = True
Num = Num & Y
Else
If nFlag = True Then
nFlag = False
Print #101, Num
Num = ""
End If
End If
Next I
Loop
Close #101
Close #100
MsgBox "提取数值完毕！"
End Sub
我的代码你用过了吗？
我这个是网页解析用途的呀！里面不单单就这几个字符和数字的！你这样是不得的..
追答那你就拿几个有代表性的出来啊，onclick='Odds(942057)'
类似这样的怎么会不行？
pt: onclick='EuropeOdds(957080)' style=(957080)'><img src='iajavascript: onclick='EuropeOdds(957081)' s
比如说这样！
onclick='EuropeOdds(957080)'
onclick='EuropeOdds(957081)'
怎么把这两个里面的数字提取出来放到个数组里面？