instr & mid problem

du kan bruge split function

Dim arrtmp() As String
Dim strString As String

strString = "\\FSASBA113\stsa\Pocket_PC My Documents\"

arrtmp() = Split(strString, "\")

strString = "N:\" & arrtemp(4) & "\"

Private Sub Form_Load()
Dim strPath  As String
  strPath = "\\FSASBA113\stsa\Pocket_PC My Documents\"
  If Mid(strPath, Len(strPath), 1) = "\" Then
    strPath = Mid(strPath, 1, Len(strPath) - 2)
  End If
  strPath = Right(strPath, Len(strPath) - InStrRev(strPath, "\"))
  Me.Caption = "N:\" & strPath
End Sub

Hvis du vil gøre det kun vha. instr og mid, kan du skrive: (det godt nok en lidt besværlig måde...)


Dim strString, intPos, i

strString = "\\FSASBA113\stsa\Pocket_PC My Documents\"
intPos = 1

For i = 1 to 3
intPos = Instr(intPos+1, strString, "\")
Next i

strResult = "N:" & Mid(strString, intPos)

Men hvis du har vb5, er det vist kun min løsning, der duer :)

'InStrRev for vb4-vb5
Public Function InStrRev(StringCheck As String, StringMatch As String, _
                Optional Start As Long = -1, Optional Compare As _
                VbCompareMethod = vbBinaryCompare) As Long
Dim i As Long
  If Compare = vbTextCompare Then
    StringCheck = LCase(StringCheck)
    StringMatch = LCase(StringMatch)
  End If
If Start > -1 And Start > 0 Then StringCheck = Left(StringCheck, Start)
  For i = Len(StringCheck) To 1 Step -1
    If Mid(StringCheck, i, Len(StringMatch)) = StringMatch Then
      Exit For
    End If
  Next
InStrRev = i
End Function

og split for vb4-5:

Public Function Split(ByVal TextToSplit As String, Optional Delimiter As String = " ") As Variant
   
    If TextToSplit = "" Then Exit Function
   
    Dim TempStr As String, tempArr() As String
    Dim X As Long
   
    On Error Resume Next
   
    If Delimiter <> "" Then
        Do
            X = InStr(TextToSplit, Delimiter)
            If X <> 0 Then
                TempStr = Left(TextToSplit, X - 1)
                TextToSplit = Right(TextToSplit, Len(TextToSplit) - X + 1 - Len(Delimiter))
               
                ReDim Preserve tempArr(UBound(tempArr) + 1)
                If Err Then ReDim tempArr(0): Err = 0
                tempArr(UBound(tempArr)) = TempStr
               
            End If
        Loop While X <> 0
    End If
   
    If TextToSplit <> "" Then
   
        ReDim Preserve tempArr(UBound(tempArr) + 1)
        If Err Then ReDim tempArr(0)
        tempArr(UBound(tempArr)) = TextToSplit
   
    End If
   
    Split = tempArr()
End Function

-thomas- Du har vist en fejl i din kode - skal der ikke stå

  intPos = 0 ' ( ikke intPos = 1 )

Ellers springer du vist den første \ over

Og skal variablen "i" ikke køre til 4 og ikke 3?

På den anden side - de to "fejl" ophæver hinanden, men forudsætter, at strengen ALTID starter med \

Mvh. Martin, Professionel flueknepper ;o)

Jeg kan rigtigt godt lide:

Dim strString, intPos, i

strString = "\\FSASBA113\stsa\Pocket_PC My Documents\"
intPos = 1

For i = 1 to 3
intPos = Instr(intPos+1, strString, "\")
Next i

strResult = "N:" & Mid(strString, intPos)

Men jeg fik ikke lige skrevet at den kun skal køre hvis de 2 første tegn er \\.
Kan jeg få den med :-)

Så tilføjer du bare:

Dim strString, intPos, i

strString = "\s\FSASBA113\stsa\Pocket_PC My Documents\"
If Left(strString, 2) = "\\" Then
    intPos = 1
   
    For i = 1 To 3
    intPos = InStr(intPos + 1, strString, "\")
    Next i
   
    strResult = "N:" & Mid(strString, intPos)
End If

martin_moth> hov, jo du har ret, sådan her skal den så være:

Dim strString, intPos, i

strString = "\\FSASBA113\stsa\Pocket_PC My Documents\"
If Left(strString, 2) = "\\" Then
    intPos = 0
   
    For i = 0 To 4
    intPos = InStr(intPos + 1, strString, "\")
    Next i
   
    strResult = "N:" & Mid(strString, intPos)
    Print strResult
End If

SUPER. TAK. Giver du et svar -thomas-

Et lille bonus spg:
hvordan skriver man
me.disposed
i vb 6.0?

hmm... nu går det da helt galt, prøver igen:

Dim strString, intPos, i

strString = "\\FSASBA113\stsa\Pocket_PC My Documents\"

If Left(strString, 2) = "\\" Then
    intPos = 0
   
    For i = 1 To 4
    intPos = InStr(intPos + 1, strString, "\")
    Next i
   
    strResult = "N:" & Mid(strString, intPos)
End If

Svar :-)

Det er helt fint jeg har rettet det til :-)