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

[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




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

121263

[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, "-")