vb6 확장자를 3 문자로 제한하려면 어떻게해야합니까? (문자열 파싱)

Question

요즘 누구든지 파일의 전체 경로를 다음과 같이 여러 부분으로 나눈 훌륭한 기능을 게시했습니다.

Function BreakDown(Full As String, FName As String, PName As String, Ext As String) As Integer 
If Full = "" Then 
BreakDown = False 
Exit Function 
End If 
If InStr(Full, "\") Then 
FName = Full 
PName = "" 
Sloc% = InStr(FName, "\") 
Do While Sloc% <> 0 
    PName = PName + Left$(FName, Sloc%) 
    FName = Mid$(FName, Sloc% + 1) 
    Sloc% = InStr(FName, "\") 
Loop 
Else 
PName = "" 
FName = Full 
End If 
Dot% = InStr(Full, ".") 
If Dot% <> 0 Then 
Ext = Mid$(Full, Dot%) 
Else 
Ext = "" 
End If 
BreakDown = True 

End Function 

그러나 그 행이 계속 지나면 확장의 일부로 간주됩니다. 어쨌든 문자열의 마지막 마침표 뒤에 3 자까지만 계산합니까?

Answer 1

Dot% = InStrRev(Full, ".") ' First . from end of string 
If Dot% <> 0 Then 
Ext = Mid$(Full, Dot%, 3) 
Else 
Ext = "" 
End If 

Mid $ 구문 : Mid (문자열, 시작 [, 길이])

Answer 2

그냥 공백 문자는 단지 첫 번째 줄

Full = Trim(Full) 

으로이를 추가 한 경우 다른 문자 다음

변경이있는 경우 :

Ext = Mid$(Full, Dot%) 

에 :

Ext = Mid$(Full, Dot%, 3) 

을