جدا کردن اعداد

[mohsen_iceman2000]

سلام


چه جور می شه که برنامه عدد ورودی که قبل کارکتر - می باشد رو ببره تو یه textbox دیگه

textbox1 = 134134-552
textbox2 = 134134

و مشخص نیست که قبل از کارکتر - عدد چند رقمی هست

-------------------------------------------------

و در آخر اطلاعات textbox1 رو بدون خط تیره ببره تو textbox3

[Mori Bone]

textdige = mid(textbox1.text,1,instr(textbox1.,"-")-1)

[VG1234]

به نام خدا
-------------------------
این قطعه کد برای قسمت اول برنامه هست

l = Len(Text1)

For i = 1 To l

N = Left(Text1, i)

R = Right(N, 1)

If R = "-" Then Text2 = Left(Text1, i - 1)

Next

_____________________________________________
قسمت دوم قطعه کد برنامه شما

l = Len(Text1)

For I = 1 To l

N = Left(Text1, I)

R = Right(N, 1)

If R = "-" Then

T1 = Left(Text1, I - 1)

X = I

End If

Next

X = X + 1

For K = l - X To X

T2 = Mid(Text1, X, K)

Next

Text3 = T1 & T2

همچنین سورس کامل پروژه را براتون ضمیمه کردم میتونید دانلود کنید

PROJECT1.zip

[hmbarnamenevis]

Dim i As Integer

i = InStr(1, Text1.Text, "-")

Text2.Text = Mid(Text1.Text, 1, i - 1)

Text3.Text = Mid(Text1.Text, i + 1, Len(Text1) - i)

[ahmad abdoli]

قسمت اول سوالت

Text2.Text = Left(Text1.Text, InStr(1, Text1.Text, "-") - 1)

واسه قسمت دوم سوالت یه تیکه کد دارم که رشته رو می گیره و کارکتر مورد نظر رو از توش حذف می کنه

Public Function RemoveChars2(txt As String, char As String) As String

Dim J, I, K As String

For I = 1 To Len(txt)

J = Mid(txt, I, 1)

If J = char Then

J = ""

Else

J = J

End If

K = K + J

Next I

RemoveChars2 = K

End Function

مثلا:

Text3.Text = RemoveChars2(Text1.Text, "-")