VB 怎么将文本文件名中的数字去掉
VB 如何将文本文件名中的数字去掉
VB 如何将文本文件名中的数字去掉 如 LTB2015.txt变成LTB.TXT.先谢谢了
------解决思路----------------------
输出
------解决思路----------------------
Dim s1$, s2$, i&
s1 = "LTB2015.txt"
s2 = s1
For i = 0 To 9
s2 = Replace(s2, i, "")
Next
Debug.Print s2
------解决思路----------------------
要调用Name语句啊。
VB 如何将文本文件名中的数字去掉 如 LTB2015.txt变成LTB.TXT.先谢谢了
------解决思路----------------------
Dim s1 As String
Dim s2 As String
Dim ch As String
Dim i1 As Long
Dim i2 As Long
s1 = "LTB2015.txt"
s2 = Space(Len(s1))
i2 = 0
For i1 = 1 To Len(s1)
ch = Mid$(s1, i1, 1)
If Not (ch Like "[0-9]") Then
i2 = i2 + 1
Mid$(s2, i2, 1) = ch
End If
Next
s2 = Left(s2, i2)
Debug.Print s2
输出
LTB.txt
------解决思路----------------------
Dim s1$, s2$, i&
s1 = "LTB2015.txt"
s2 = s1
For i = 0 To 9
s2 = Replace(s2, i, "")
Next
Debug.Print s2
------解决思路----------------------
要调用Name语句啊。
Name s1 As s2