+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=22321)
طلب مشروع صغييييير جدا جدا - الـ ـجارح - 30-10-17
السلام عليكم
طلب برنامج او مشروع محول تكست مثلا اختار ملف التكست
ملف txt يحتوي على ايميلات بالطريقه هذي
xxxxxx1@hotmail.com:9998
xxxxxx2@hotmail.com:9998
xxxxxx3@hotmail.com:9998
اريد تحويل وجعلهم بالطريقه هذي بجانب بعض وليس تحت بعض وببين كل ايميل والاخر هالفاصله,
xxxxxx1@hotmail.com:9998,xxxxxx2@hotmail.com:9998,xxxxxx3@hotmail.com:9998
بانتظاركم
RE: طلب مشروع صغييييير جدا جدا - أسامة السالمي - 31-10-17
PHP كود :
TextBox1.Text = TextBox1.Text.Replace(vbNewLine, ",")
RE: طلب مشروع صغييييير جدا جدا - silverlight - 31-10-17
يمكنك استخدام الدالة التالية
PHP كود :
Private Function ReadFile(fileName As String) As String
If Not String.IsNullOrEmpty(fileName) AndAlso IO.File.Exists(fileName) Then
Dim lines As String() = IO.File.ReadAllLines(fileName)
Dim i As Integer = 0
Dim s As String = String.Empty
While i < lines.Length
Dim line As String = lines(i)
If Not String.IsNullOrEmpty(line) Then
s += line
s += ","
End If
i += 1
End While
Return s.TrimEnd(",")
End If
Return String.Empty
End Function
الإستخدام
حدد إسم الملف شاملا المسار و مرره للدالة
لو افترضنا ان الملف موجود تحت فهرس المشروع و اسم الملف datafile.txt
يكون الكود كالتالي
PHP كود :
Dim s As String = ReadFile(".\" + "datafile.txt")
RE: طلب مشروع صغييييير جدا جدا - سعود - 31-10-17
PHP كود :
Public Class Form1
Private Sub gd()
TextBox1.Text = My.Computer.FileSystem.ReadAllText("t.txt")
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
gd()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = TextBox1.Text.Replace(vbNewLine, ",")
My.Computer.FileSystem.WriteAllText("t.txt", TextBox1.Text, False)
gd()
End Sub
End Class
RE: طلب مشروع صغييييير جدا جدا - الـ ـجارح - 03-11-17
الف شكر لكم جميعا
واخص بالشكر الاخ سعود وتم تحميل المشروع يعمل 100%