تقييم الموضوع :
  • 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 ك ب / التحميلات : 35)
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#5
الف شكر لكم جميعا
واخص بالشكر الاخ سعود وتم تحميل المشروع يعمل 100%
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور رساله ازعجتنى فى مشروع مصمم بال vb.net خالد كامل1 5 128 أمس, 04:36 AM
آخر رد: خالد كامل1
  ارجو المساعدة مشروع عن الوزن المثالي Rodi001 7 7,026 13-02-19, 01:08 AM
آخر رد: مها القويفلي
  [VB.NET] مشكلة بعد تحويل مشروع الفيجوال بيسك لصيغة exe _M.Nasser 1 106 25-01-19, 07:44 PM
آخر رد: سعود
  [سؤال] طلب شروحات او دروس تعليمية لتصميم مشروع بسيط جدا للمبتدئين hyboss 1 94 21-01-19, 03:31 PM
آخر رد: elgokr
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 264 16-01-19, 12:59 AM
آخر رد: EYADISMAIL
  مشكله عند عمل مشروع جديد في الفيجوال بيسك 2015 Emam emam 7 260 22-12-18, 03:45 PM
آخر رد: Emam emam
  [VB.NET] مشروع محيرنى مش عارف ابدأ منين؟ خالد كامل1 14 457 22-12-18, 05:53 AM
آخر رد: خالد كامل1
  استشارة فى مشروع برنامج شجرة العائلة salah mansour 5 205 20-12-18, 03:45 AM
آخر رد: elgokr
  [VB.NET] من يملك مشروع تدبير مؤسسة تعليمية ابتدائي و اعدادي و ثانوي yassbazz1987 1 131 19-12-18, 01:12 AM
آخر رد: elgokr
  [سؤال] تحويل مشروع فيجوال بيسك الى برنامج exe Simo1991 1 188 17-12-18, 01:43 AM
آخر رد: محمد كريّم

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


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