نقل قول: کار با فایل تکست
نقل قول:
میدونید دوستون دارم، نیاز به گفتن نیست(مخصوصا آقایان شامحمدی، موسوی و...!)
ممنون لطف دارید
از این روش استفاده کن.
روش ابتکاریه ولی خب خوب کار می کنه.
البته فکر می کنم روش های دیگه ای هم شاید مثلا با استفاده از RegEx وجود داشته باشه.
Dim a As String = "X11.411 Y-388.727 U-6.793 V0"
Dim result As String
Dim UPlace As Byte = a.IndexOf("U")
For Each C As Char In a.Substring(UPlace)
If IsNumeric(C) Or C = "." Then
result &= C
ElseIf C = "V" Then
Exit For
End If
Next
MsgBox(result)
نقل قول: کار با فایل تکست
ممنونم گلم
ولی کانکت انجام دادی؟......result &=c
بعد اومدید با V جابجا کردید، یه توضیح کوچیک منو مهمون میکنی؟