PDA

نسخه کامل مشاهده نسخه کامل : يك سوال در مورد فايل متني در وي بي


aliarc2003
21-06-2006, 21:06
با سلام

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

ممنون :)
Payman_62
22-06-2006, 03:15
یعنی چی دستور میخوام؟
منظورت دستور تحت داسه؟ فکر نکنم تو داس امکان پذیر باشه. ولی برنامشو خیلی راحت میشه نوشت.
aliarc2003
22-06-2006, 10:18
سلام

من سوال رو در قسمت Visual Basic مطرح كردم .
مي خواهم يك برنامه بنويسم كه خط هاي زوج يك فايل متني رو كه قبلا ايجاد كرده نشون بده .
Payman_62
23-06-2006, 20:37
کاری نداره که. یه کانتر بذار. سر اعداد زوج خط رو بخون.
majid_kntu
26-06-2006, 20:33
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
26-06-2006, 20:34
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
26-06-2006, 20:37
يادم رفت بگم Text1 رو انتخاب كن و در پنجره مشخصات اون مقادير زير رو اصلاح كن:
MultiLine رو True كن
ScrollBars رو به #3-Both ست كن