7,785
社区成员




Name s1 As s2
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