我现在要从"111-1111"中取出1111111.有什么简单的方法吗?
解决方案 »
- 操作execl时出现“subscript out of range”,是何原因?
- 非常非常奇怪的问题!关于imagelist的
- 高手们进来看看吧,在线等待,100分!!!!!!
- VB程序,台式机能运行,笔记本就不行。为什么呢
- 阁下:你想打开一个DWG文件吗 ?或你曾经操作过DWG文件吗 ? 来这里讨论讨论吧!!!!!!!!--------->
- 如何定义结构体?举个例子。谢谢!
- VB能否创建单文档多视图,谁有例子
- 我的vb6.0里面怎么找不到Apex data bound grid(DBGrid)控件啊?
- vb自带报表里的sql语句可以在运行期改变吗?怎么改变啊?
- 再次求助。。vb如何做二次曲线拟合和画图?求代码研究
- VB的"类",我看着晕,麻烦也学过C++的大哥帮忙指点一下.
- Clipboard中文的问题
免费的学习、交流、源码、工具下载网站,欢迎大家访问!
http://www.j2soft.cn/
Dim d As String, str As String, strTemp As String
Dim i As Integer
d = "111-234-1191"
For i = 1 To Len(d)
strTemp = Mid(d, i, 1)
If Asc(strTemp) >= &H30 And Asc(strTemp) <= &H39 Then
str = str & strTemp
End If
Next i
Debug.Print str
End Sub
Dim aString As String
'Returns "1111111"
aString = Replace(myString,"-","")
若不是则用循环处理每个字符如果是数字就保留
str.Remove("-");此时的 str 就是你想要的.