module1.bas

刚得到的读取shape图片的visualbasic源程序

Attribute VB_Name = "Module1"
'
Public Sub FindWay(str1 As String, str2 As String, str As String)
Dim i As Integer
Dim j As Integer
i = Len(str1)
j = Len(str2)
str = Left(str1, i - j - 1)

End Sub