يك سوال در مورد فايل متني در وي بي

[aliarc2003]

با سلام

يك دستور مي خواهم كه بتونم مثلا خط هاي فرد (يا زوج يا ...) يك فايل با پسوند txt. رو بخونه .

ممنون

[Payman_62]

یعنی چی دستور میخوام؟
منظورت دستور تحت داسه؟ فکر نکنم تو داس امکان پذیر باشه. ولی برنامشو خیلی راحت میشه نوشت.

[aliarc2003]

سلام

من سوال رو در قسمت Visual Basic مطرح كردم .
مي خواهم يك برنامه بنويسم كه خط هاي زوج يك فايل متني رو كه قبلا ايجاد كرده نشون بده .

[Payman_62]

کاری نداره که. یه کانتر بذار. سر اعداد زوج خط رو بخون.

[majid_kntu]

f = FreeFile
Open "c:\YourTextFile.txt" For Input As #f
Do While Not EOF(f)
i = i + 1
Input #f, txtTemp
If i Mod 2 = 0 Then txtData = txtData & txtTemp & vbCrLf
Loop
Close
Text1.Text = txtData

[majid_kntu]

Private Sub Form_Load()

f = FreeFile
Open "c:\YourTextFile.txt" For Input As #f
Do While Not EOF(f)
i = i + 1
Input #f, txtTemp
If i Mod 2 = 0 Then txtData = txtData & txtTemp & vbCrLf
Loop
Close
Text1.Text = txtData

End Sub

[majid_kntu]

يادم رفت بگم Text1 رو انتخاب كن و در پنجره مشخصات اون مقادير زير رو اصلاح كن:
MultiLine رو True كن
ScrollBars رو به #3-Both ست كن