تقييم الموضوع :
  • 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%
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشروع حكم و امثال yassbazz1987 2 73 08-11-18, 02:49 PM
آخر رد: elgokr
  فكرة مشروع لإدارة مخزن sads 10 233 04-11-18, 09:27 PM
آخر رد: sads
  ما هي أسهل طريقة لتحويل مشروع VB.net الي asp.net dametucorazon 3 190 26-10-18, 04:09 PM
آخر رد: dametucorazon
  مشكله فى حفظ قاعده بيانات اكسس فى مشروع فيجوال بيزك مع تلك القاعده خالد كامل1 2 110 16-10-18, 08:34 AM
آخر رد: خالد كامل1
  فكرة تنفيذ مشروع sads 1 92 14-10-18, 09:31 PM
آخر رد: عبد العزيز البسكري
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 10 315 03-10-18, 04:54 PM
آخر رد: essawq
  فكرة مشروع بالفيجوال بيسك وقاعده بيانات اكسس ارجو المساعده خالد كامل1 3 243 18-09-18, 01:34 PM
آخر رد: elgokr
  [سؤال] مشروع مراقبة الملفات dasktop 2 175 10-09-18, 03:41 PM
آخر رد: dasktop
  مشروع الرسائل الصادرة والواردة abdulla.ali.essed 0 116 05-09-18, 01:38 AM
آخر رد: abdulla.ali.essed
  اريد مشروع لادارة صلات الجيم ...وطباعة الكروت من فظلكم khalilfox 4 224 07-08-18, 12:46 PM
آخر رد: khalilfox

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


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