الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار هام لأهل الخبره الله يجزاكم خير

بدأه bgd في 14 يوليو 2011 · 2 رد · 474 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخواني ورحمة الله وبركاته

عندي كود وهو شغال تماما للتصدير من الداتا جريد الى ملف نصي txt

واريد فقط تعديله ليقوم بالتصدير الى تكست بوكس فقط حاولت ولم أفلح اتمنى تساعدوني الله يجزاكم خير والف شكر لكم مقدما

Private Sub Command2_Click()
Dim strLine As String
Dim I As Integer

    Screen.MousePointer = vbHourglass

    Open App.Path & "\ÇáÇÑÞÇã.txt" For Output As #1
        With Data1.Recordset
            .MoveFirst
            Do While Not .EOF
                strLine = ""
                For I = 0 To .Fields.Count - 10
                    strLine = strLine & "" & .Fields(2).Value
                    If I < .Fields.Count - 10 Then
                        strLine = strLine & vbTab
                    End If
                Next I

                Print #1, strLine
                .MoveNext
            Loop
            .MoveFirst
        End With
    Close #1

    Screen.MousePointer = vbDefault

End Sub
#2

السلام عليكم

مع مراعاة أن خاصية الـ MultiLines للـ Text1 = True

 Open App.Path & "\ÇáÇÑÞÇã.txt" For Input As #1
Do While Not EOF(1)
Input #1, strLine
text1.text = text1.text & strLine & vbCrlf
Loop
close

الدالة Input تستخدم للقراءة و الداله Output تستخدم للكتابة

vbCrlf تستخدم لادخال سطر جديد مع كل ادخال, لهذا اذا البيانات تبيها كلها في سطر شيل هالدالة هذي.

تحيه

(وَمَا أُوتِيتُمْ مِنَ الْعِلْمِ إِلَّا قَلِيلًا)

#3

الله يبيض وجهك اخوي

وتقبل تحياتي

ولك دعائي

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…