تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب مشروع صغييييير جدا جدا
#1
السلام عليكم

طلب برنامج او مشروع محول تكست مثلا اختار ملف التكست

ملف 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

بانتظاركم
الرد
تم الشكر بواسطة:
#2
PHP كود :
TextBox1.Text TextBox1.Text.Replace(vbNewLine","
الرد
تم الشكر بواسطة: Amir_Alzubidy
#3
يمكنك استخدام الدالة التالية


PHP كود :
   Private Function ReadFile(fileName As String) As String
        If Not String
.IsNullOrEmpty(fileNameAndAlso IO.File.Exists(fileNameThen
            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(lineThen
                    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") 
Retired
الرد
تم الشكر بواسطة: Amir_Alzubidy
#4


PHP كود :
Public Class Form1
    Private Sub gd
()
 
       TextBox1.Text My.Computer.FileSystem.ReadAllText("t.txt")
 
   End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        TextBox1
.Text TextBox1.Text.Replace(vbNewLine",")
 
       My.Computer.FileSystem.WriteAllText("t.txt"TextBox1.TextFalse)
 
       gd()
 
   End Sub
End 
Class 
مجرد مشاركة فقط


الملفات المرفقة
.zip   WindowsApplication2.zip (الحجم : 92.45 ك ب / التحميلات : 33)
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#5
الف شكر لكم جميعا
واخص بالشكر الاخ سعود وتم تحميل المشروع يعمل 100%
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فكرة مشروع بالفيجوال بيسك وقاعده بيانات اكسس ارجو المساعده خالد كامل1 3 93 18-09-18, 01:34 PM
آخر رد: elgokr
  [سؤال] مشروع مراقبة الملفات dasktop 2 90 10-09-18, 03:41 PM
آخر رد: dasktop
  مشروع الرسائل الصادرة والواردة abdulla.ali.essed 0 62 05-09-18, 01:38 AM
آخر رد: abdulla.ali.essed
  اريد مشروع لادارة صلات الجيم ...وطباعة الكروت من فظلكم khalilfox 4 157 07-08-18, 12:46 PM
آخر رد: khalilfox
  خطا مشروع فيجوال mohamed_ali 2 87 06-08-18, 06:23 PM
آخر رد: Finish
  [سؤال] كيفية تحويل مشروع من c# الى vb.net alims 5 191 12-07-18, 10:53 PM
آخر رد: elgokr
  [VB.NET] عمل مشروع مع حفظ الارشيف الصورة محمد بوقزاحة 2 141 11-07-18, 02:05 AM
آخر رد: sendbad100
  اخواني لدي مثال مشروع تعديل علي بيانات موجودة علي حسب تاريخ اليوم نور الهدى الهدى 7 266 06-07-18, 05:54 PM
آخر رد: elgokr
  تحويل مشروع من 32 الى 64 رسول555 6 257 28-06-18, 07:07 AM
آخر رد: elgokr
  [مشروع] مشروع برنامج لادارة مدرسة sudanpc 2 235 28-06-18, 06:54 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم