به دو روش ميتونی جدا سازی رو انجام بدی تابع Split ، يا تابع Instr و Mid
جدا سازی توسط تابع Split :
Dim DATA As String = "bsnasdcccvfdv\milad\yhbosssssdvdfbyrty"
Dim Ret As String = Split(Split(DATA, "\")(1), "\")(0)
Debug.Print(Ret)
جدا سازی توسط تابع Instr + Mid :
Dim DATA As String = "bsnasdcccvfdv\milad\yhbosssssdvdfbyrty"
Dim intStart As Integer
Dim intEnd As Integer
Dim Ret As String = Nothing
Dim targetLen As Integer
intStart = InStr(DATA, "\") + 1
If intStart > 1 Then
intEnd = InStr(intStart, DATA, "\")
If intEnd > 0 Then
targetLen = (intEnd - intStart)
Ret = Mid(DATA, intStart, targetLen)
End If
End If
Debug.Print(Ret)
تو روش Split بهتره قبل از جدا سازی با Instr چک کنيد که کراکتر اسلش وجود داره يا نه بعد اقدام به جداسازی کنيد چون در صورت نبودن کراکتر جدا ساز برنامه با خطا مواجع ميشه