التعامل مع أرقام سطور الملف النصي

السلام عليكم

لا اعتقد انه يوجد كود مباشر لعمل هذا الذى تريده

ولكن يمكنك استخدام الكود التالى لمعرفة عدد السطور

Open "hh.txt" For Input As #1
Do While Not EOF(1)

Line Input #1, x)
h= h + 1
Loop
msgbox  h
'x متغير مؤقت وh هو عدد السطور

ويمكنك استخدام نفس الفكرة لتنفيذ الطلب الثانى

يعنى مثلا

if (h=3) then print x

اتمنى ان الطريقة دى تعجبك

وانا تحت امرك فى اى سؤال

السلام عليكم

الحل كما يبدو أن تعمل الأتي

1- تفتح مشروع جديد وضع على الفورم 4 تكست بوكس مثلا وواحد كوماند

2- أحفظ المشروع أولا

3 - ضع هذه الفاكشن Function في قسم التصريحات العامة

Public Function readLine(ByRef strFilePath As String, ByRef nLine _
    As Integer) As String
    Dim NextLine As String
    Dim n As Integer
    FileNum = FreeFile
    Open App.Path & "\1.txt" For Input As FileNum
    Do Until EOF(FileNum)
        Line Input #FileNum, NextLine
        n = n + 1
        If n = nLine Then readLine = NextLine
    Loop
Close
End Function

ضع هذا الكود في الكوماند

Private Sub Command1_Click()
Text1.Text = readLine("1.txt", 1)
Text2.Text = readLine("1.txt", 2)
Text3.Text = readLine("1.txt", 3)
Text4.Text = readLine("1.txt", 4)
End Sub

لاتنسى أن تفتح الملف النصي المسمى 1.txt وتكتب فيه 4 اسطر بالتتابع

هذا ما أعرفه :rolleyes:

بسم الله الرحمن الرحيم

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

مشكورين أخواني hanysaad و ekseer جزيل الشكر فقد تم تجربة الكود الثاني وضبط

بس يا أخواني ممكن سؤال ثاني الله يوفقكم

هو كيف يمكن تقسيم السطر إلى حروف

يعني : منتديات الفريق العربي للبرمجة

إلى : م ن ت د ي ا ت ا ل ف ر ي ق ا ل ع ر ب ي ل ل ب ر م ج ة

والله يوفقكم دنيا وآخرة

أخي الكريم أليك الكود لكن لم أيجرب من قبل

Dim x1 As String
Dim x2 As String
Dim i As Long

x = "godsmack"

For i = 1 To Len(x)

x2 = x2 & Mid(x, i, 1) & " "

Next i

Label1.Caption = x2

بسم الله ما شاء الله عليكم

شكرا علي الاكواد الجميلة

وجزاكم الله كل خير

مشكور أخوي غسان الجزار والله يوفقك دنيا وآخرة

ويوفق جميع أعضاء المنتدى في الدنيا والآخرة

لقد تم تجربة وطلع 100%

شكرًا لكم جميعًا