+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : تقسيم النص (/showthread.php?tid=4456)
تقسيم النص - HASAN6.0 - 25-09-12
السلام عليكم ورحمه الله وبركاته
ارجو المساعدة في كود تقسيم الرقم الى قسمين
ما قبل الفاصلة وما بعدها
مثلا 18.74
اريد ان يظهر في تكست رقم 18 وفي الاخر رقم 74
وشكرا للجميع
تقسيم النص - HASAN6.0 - 25-09-12
مشكورين
وجدت الحل
PHP كود :
Text1.Text = "18.74"
Text2.Text = Split(Text1, ".")(0)
Text3.Text = Split(Text1, ".")(1)
تقسيم النص - mamas1 - 25-09-12
PHP كود :
Dim strAnimals As String
Dim iCounter As Integer
Dim arrAnimals() As String
strAnimals = "Cats,Dogs,Horses,Birds"
'replace the "," below with your delimiter
arrAnimals = Split(strAnimals, ",")
For iCounter = LBound(arrAnimals) To UBound(arrAnimals)
MsgBox arrAnimals(iCounter)
Next
هذا كود لتقسيم النص حسب , و إظهار الاقسام كلها في msgbox يمكنك وضع أي شيء بدل ","
للإفادة فقط
تقسيم النص - اسلام الكبابى - 02-10-12
وهذا كود آخر
PHP كود :
Dim Z As Integer
Private Sub Command1_Click()
X = 64.19237
Y = Int(X)
P = Len(X) - Len(Y) - 1
Z = (X - Y) * 10 ^ P
Text1.Text = Y: Text2.Text = Z
End Sub