VB 如何将文本文件名中的数字去掉

[qq_30959359]

VB 如何将文本文件名中的数字去掉 如 LTB2015.txt变成LTB.TXT.先谢谢了

[Tiger_Zhao]

    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

[qq_30959359]

如果2015是个变量，也可以吗？

[Tiger_Zhao]

和变量有什么关系，你只要保证s1是个字符串就行，结果s2就会去掉所有的数字。

[思考]

Dim s1$, s2$, i& s1 = "LTB2015.txt" s2 = s1 For i = 0 To 9 s2 = Replace(s2, i, "") Next Debug.Print s2

[qq_30959359]

我按你的代码试了，没改过来

[qq_30959359]

我按你的代码试了，没改过来

[qq_30959359]

我是想把文件夹中的文本文件改名 如ltb201509.txt 改为ltb.txt

[Tiger_Zhao]

要调用Name语句啊。

Name s1 As s2