m2011kh
چهارشنبه 25 بهمن 1391, 00:25 صبح
سلام دوستان من.
اولین چیزی که خواهید گفت اینکه چرا جستجو نکردی.باید بگم که جستجو کردم و چیزی پیدا نکردم.
سوالمم حتی از نظر خودمم خیلی خنده دار هست و اعتراف میکنم چند روزیه مغزم کار نمیکنه.
من یه فانکشن کوچیک برای بدست آوردن قسمت آخر یک رشته نوشتم.
برای مثال از این رشته:
C:\01\02\03
میخوام 03 رو استخراج کنم و این فانکشن هست:
Public Function GetFileName(strAdress As String) As String
If strAdress = Empty Then
GetFileName = Empty
Exit Function
End If
Dim i As Integer
For i = Len(strAdress) To 0
If Asc(Mid(strAdress, i, 1)) = 92 Then
GetFileName = Right(strAdress, i - 1)
End If
Next i
End Function
ولی نمیدونم چرا در هر صورتی تابع مقدار Empty رو برمیگردونه.یه راهنمایی کوچیک خالی از لطف نیست ممنون.
MMD
اولین چیزی که خواهید گفت اینکه چرا جستجو نکردی.باید بگم که جستجو کردم و چیزی پیدا نکردم.
سوالمم حتی از نظر خودمم خیلی خنده دار هست و اعتراف میکنم چند روزیه مغزم کار نمیکنه.
من یه فانکشن کوچیک برای بدست آوردن قسمت آخر یک رشته نوشتم.
برای مثال از این رشته:
C:\01\02\03
میخوام 03 رو استخراج کنم و این فانکشن هست:
Public Function GetFileName(strAdress As String) As String
If strAdress = Empty Then
GetFileName = Empty
Exit Function
End If
Dim i As Integer
For i = Len(strAdress) To 0
If Asc(Mid(strAdress, i, 1)) = 92 Then
GetFileName = Right(strAdress, i - 1)
End If
Next i
End Function
ولی نمیدونم چرا در هر صورتی تابع مقدار Empty رو برمیگردونه.یه راهنمایی کوچیک خالی از لطف نیست ممنون.
MMD