+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص النصوص (/showthread.php?tid=35742)
سؤال بخصوص النصوص - اليوم السابع - 20-07-20
عندي هذا النص في متغير اريد ان اجلعه في سطر واحد بدلا من انه اسفل بعض
إقتباس : "likes": {
"data": [
],
"summary": {
"total_count": 181
}
RE: سؤال بخصوص النصوص - اليوم السابع - 20-07-20
(20-07-20, 04:32 PM)اليوم السابع كتب : عندي هذا النص في متغير اريد ان اجلعه في سطر واحد بدلا من انه اسفل بعض
إقتباس : "likes": {
"data": [
],
"summary": {
"total_count": 181
}
????
RE: سؤال بخصوص النصوص - ابراهيم ايبو - 21-07-20
السلام عليكم ورحمة الله وبركاته
تفضل
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Replace(" ", "")
Dim AllData() As String = TextBox1.Text.Split(" ")
For i As Integer = 0 To AllData.Length - 1
TextBox2.Text &= AllData(i) & " "
Next
End SubRE: سؤال بخصوص النصوص - اليوم السابع - 21-07-20
(21-07-20, 03:49 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Replace(" ", "")
Dim AllData() As String = TextBox1.Text.Split(" ")
For i As Integer = 0 To AllData.Length - 1
TextBox2.Text &= AllData(i) & " "
Next
End Sub
شكرا لك يا قائد