Udskille filenavnet fra stigen.

Kan flg. bruges?

Fil=left$(File1.FileName,len(fil)-4) \' Fjerner extension

while not instr(1,fil,\"\\\")=0)
    Fil=right$(fil,len(fil)-instr(1,fil,\"\\\")
wend

    List2.AddItem List1.ListCount & \" - \" & Fil \'Det er her jeg vil have pillet filenavnet ud

Det skal lige siges, at ovenstående var frit fra leveren, jeg har ikke VB installeret dér hvor jeg sidder nu, så jeg har ingen mulighed for at teste.

driis: Jeg for fejl i linjen:

Fil=left$(File1.FileName,len(fil)-4)

Hvilken fejl får du? Prøv lige at udelade linjen og se, om resten af koden virker.

Gør følgende

    Dim f As String
    Dim pos As Long, tmppos As Long
    f = \"C:\\System\\Notepad.exe\"
    tmppos = 0
   
    Do
        pos = tmppos
        tmppos = InStr(tmppos + 1, f, \"\\\")
    Loop While (tmppos > 0)

   
    f = Right(f, Len(f) - pos)
   
    pos = InStr(1, f, \".\")
   
    If (pos > 0) Then
        f = Left(f, pos - 1)
    End If
   
    \'f now contains Notepad

//Nolle_K

Nolle_K: Ja det script virker fint

Tak

Her er en lille funktion som kun returnerer filnavnet, du vælger selv om det skal være med eller uden extention.

Et par eks.:

Debug.Print GetFilename(\"c:\\windows\\notepad.exe\") \' Returnerer \"notepad.exe\"
Debug.Print GetFilename(\"c:\\windows\\notepad.exe\", False) \' Returnerer \"notepad\"

Private Function GetFilename(FullPath As String, Optional WantExtention As Boolean = True) As String
    Dim pos As Integer
    GetFilename = FullPath
    If Not WantExtention Then \' Klip extention fra.
        pos = InStrRev(GetFilename, \".\") \' Find det sidste \".\" i strengen
        If pos > 1 Then GetFilename = Left(FullPath, pos - 1)
    End If
    GetFilename = Mid(GetFilename, InStrRev(GetFilename, \"\\\") + 1)
End Function

Ok, her er den korte version... Fjerner kun stien.

TheFilename = Mid(ThePath, InStrRev(ThePath, \"\\\") + 1)

Hvis ThePath = \"c:\\windows\\notepad.exe\" så bliver TheFilename = \"notepad.exe\"

Kun en linie kode og ikke alt det ekstre skrammel. Den returnerer dog en fejl hvis ThePath er tom.

winkill: jeg for en fejl i dem, fejlen er at \"InStrRev\" skal udskiftes med \"InStr\" ellers virker det ikke hos mig, og Debug.Print\" ved jeg ikke hvordan man skal bruge den men hvis jeg skriver det sådan:

Text1 = GetFilename(\"c:\\windows\\notepad.exe\") \' Returnerer \"notepad.exe\"
Text2 = GetFilename(\"c:\\windows\\notepad.exe\", False) \' Returnerer \"notepad\"

Så virker det, men i \"Text1\" kommer der til at stå: windows\\notepad.exe
og i \"Text2\" kommer der til at stå: windows\\notepad

det der nok for de der skal ligges en \"Loop\" ind i den eller hvad

winkill: Debug.Print\" er en fejl der skulle havde stået: \"Debug.Print\"

Hmmm, jeg bruger InStrRev i alle mine scripts og programmer (stort set). Den gør det samme som InStr, bort set fra at den starter fra sidste tegn. Jeg bruger VB 6.0 og til scripts, den Windows Scripting Host som ligger i Windows 2000.

InStrRev er ikke en fejl, men det er muligt at den først er blevet implementeret i VB 6.0

Nå ja, og debug.print, de gange jeg har siddet og udviklet i Visual Basic miliøet har jeg lagt mærke til det lille debug vindue i bunden. Det kan aktiveres med Ctrl+G.

Hvis du skriver Debug.Print \"Hello world\" i dit program så får du \"Hello World\" frem i debug vinduet.

Prøv evt med dette VBScript.

Dim ThePath
ThePath = \"c:\\windows\\notepad.exe\"
Msgbox Mid(ThePath, InStrRev(ThePath, \"\\\") + 1)

winkill:
----------------------------
Compile error
Sub or Function not defined
----------------------------

Det er den Error jeg for, men jeg bruger også kun \"Visual Basic 5.0\" så det er nok problemet.

ellers virker det fint sådan:

Dim ThePath
ThePath = \"c:\\windows\\notepad.exe\"
MsgBox Mid(ThePath, InStr(ThePath, \"\\\") + 1)

:-)

Nej, det virker ikke fint på den måde, for InStr starter fra begyndelsen, InStrRev starter fra slutningen... Crap VB 5.0

Nå, men Prøv lige igen, denne gang, tilføj den her funktions dimmer. (Hvad VB ikke har (havde) det laver man selv ;-)

Function InStrRev(StringCheck As String, StringMatch As String) As Long
    Dim pos As Long
    pos = Len(StringCheck)
    While pos > 0
        If Mid(StringCheck, pos, Len(StringMatch)) = StringMatch Then
            InStrRev = pos
            Exit Function
        End If
        pos = pos - 1
    Wend
End Function

winkill: Hvis jeg intaster det sådan:


Function InStrRev(StringCheck As String, StringMatch As String) As Long
    Dim pos As Long
    pos = Len(StringCheck)
    While pos > 0
        If Mid(StringCheck, pos, Len(StringMatch)) = StringMatch Then
            InStrRev = pos
            Exit Function
        End If
        pos = pos - 1
    Wend
End Function

Private Sub Command1_Click()
Dim ThePath
ThePath = \"c:\\windows\\notepad.exe\"
MsgBox Mid(ThePath, InStrRev(ThePath, \"\\\") + 1)
End Sub

Så for jeg fejl i linje: \"MsgBox Mid(ThePath, InStrRev(ThePath, \"\\\") + 1)\"

----------------------------
Compile error:
ByRef argument type mismatch
----------------------------
\"ThePath\"

Det er fordi du har dim\'et ThePath som variable, det skal helst være en string.

Du kan bruge en af følgende.

Hvis det er ligemeget hvilken type ThePath er i dit program så brug:

Function InStrRev(StringCheck As String, StringMatch As String) As Long
    Dim pos As Long
    pos = Len(StringCheck)
    While pos > 0
        If Mid(StringCheck, pos, Len(StringMatch)) = StringMatch Then
            InStrRev = pos
            Exit Function
        End If
        pos = pos - 1
    Wend
End Function

Private Sub Command1_Click()
Dim ThePath As String
ThePath = \"c:\\windows\\notepad.exe\"
MsgBox Mid(ThePath, InStrRev(ThePath, \"\\\") + 1)
End Sub

Hvis ThePath SKAL værre en variable i dit program så brug:

Function InStrRev(StringCheck As String, StringMatch As String) As Long
    Dim pos As Long
    pos = Len(StringCheck)
    While pos > 0
        If Mid(StringCheck, pos, Len(StringMatch)) = StringMatch Then
            InStrRev = pos
            Exit Function
        End If
        pos = pos - 1
    Wend
End Function

Private Sub Command1_Click()
Dim ThePath
ThePath = \"c:\\windows\\notepad.exe\"
MsgBox Mid(CStr(ThePath), InStrRev(ThePath, \"\\\") + 1)
End Sub

winkill: den her virker fint.

Function InStrRev(StringCheck As String, StringMatch As String) As Long
    Dim pos As Long
    pos = Len(StringCheck)
    While pos > 0
        If Mid(StringCheck, pos, Len(StringMatch)) = StringMatch Then
            InStrRev = pos
            Exit Function
        End If
        pos = pos - 1
    Wend
End Function

Private Sub Command1_Click()
Dim ThePath As String
ThePath = \"c:\\windows\\notepad.exe\"
MsgBox Mid(ThePath, InStrRev(ThePath, \"\\\") + 1)
End Sub

Så for jeg: \"notepad.exe\" :-)

Finally, selvom der ikke er point i det kan jeg ikke accepterer at der er noget der ikke funker ;-)

winkill: sådan skal det også værere.

;-)

Men så synes jeg nu min løsning var en smule mere enkel!! (Undskyld at jeg træder i det *GGGG*))

Ja, i VB < v6.0 vil jeg give dig fuldstændigt ret nolle.