PDA

View Full Version : کار با فایل تکست



abshare57
پنج شنبه 18 فروردین 1390, 11:46 صبح
سلام به نوع دوستان!!
یه فایل تکست چند خطی دارم، که هر خط آن مثل خط زیر است:

X11.411 Y-388.727 U-6.793 V0

و میخواهیم علاوه بر تبدیل U و V به A و B (که تا اینجاش مشکلی نیست)، محاسباتی را بر روی اعداد مقابل U و V انجام دهیم(به طوریکه طول عدد حاصل را نمیدانیم کمتر از طول ارقام حال حاضر می شود یا بیشتر) و در نهایت مقابل A و B نوشته شود.

میدونید دوستون دارم، نیاز به گفتن نیست(مخصوصا آقایان شامحمدی، موسوی و...!)

محسن شامحمدی
پنج شنبه 18 فروردین 1390, 16:03 عصر
میدونید دوستون دارم، نیاز به گفتن نیست(مخصوصا آقایان شامحمدی، موسوی و...!)ممنون لطف دارید

از این روش استفاده کن.
روش ابتکاریه ولی خب خوب کار می کنه.
البته فکر می کنم روش های دیگه ای هم شاید مثلا با استفاده از 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)

abshare57
شنبه 20 فروردین 1390, 20:24 عصر
ممنونم گلم

ولی کانکت انجام دادی؟......result &=c

بعد اومدید با V جابجا کردید، یه توضیح کوچیک منو مهمون میکنی؟