Question

vb 如何删除字符串中的数字 在同一个文本中输入字符串。输出也在这个文本

Answer 1

Private Sub Command1_Click()
s = "skdj23d485v df57dfsfwe759wf0954asjkfhjkfh 123This is the end"
i = 1
find = True
While find
For i = 1 To Len(s)
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then Exit For
Next i
For j = i To Len(s)
If Mid(s, j, 1) < "0" Or Mid(s, j, 1) > "9" Then Exit For
Next j
s = Left(s, i - 1) & Mid(s, j, Len(s) - j + 1)
find = j <= Len(s)
Wend
Print s
End Sub

Answer 2

替换
replace()

追问

能帮我写出一个完整的代码吗

追答

Result = Regex.Replace(str,@ "\d+", "")

追问

大侠啊。我是菜鸟中菜鸟啊。你这样写。我前面后和后面的也不会啊、能不能写个全的啊。从头到尾的

追答

这个这么完整了，还要怎么写？