vb读取文字

原问题：vb读取文字
分类：编程开发 > 最后更新时间：【2017-07-27 05:43:25】
问题补充：

比如我的text1中有 w010y 几个字符，怎么只将文字和字母输入到label1中呢？

最佳答案

DimIaslong,Laslong,Tasstring,RasString,Masstring

t=trim$(text1.text)

l=len(t)

fori=1tol

m=mid$(t,i,1)

selectcasem

case"0"to"9"

caseelse

R=r&m

endselect

next

label1.caption=r

最佳答案由网友  专业大傻鱼  提供
公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
7

分享到：

其他回答

其它网友回答：
Private Sub Form_Load()
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile(App.Path & "\config.txt", 1)
Label1.Caption = f1.ReadLine
Label2.Caption = f1.ReadLine
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile(App.Path & "\config.txt", 2)
f1.WriteLine Label1.Caption
f1.WriteLine Label2.Caption
End Sub

其它网友回答：
判断是数字就去掉trim


追问：
说详细一点，谢谢

其它网友回答：
V直接就是特殊符号了

其它网友回答：
没看懂你的问题

    推荐