کمک فوری . اشکال در کار با فایل

من می خواهم متن های درون یک text فایل را خوانده و در آخر هر خط یک علامت ستاره بگذارم و آن را در یک text فایل دیگر save کنم . لطفا اگه کسی بلده برنامشا به من بده .خیلی کارم گیرهههههههههههههههههه

ببین این کد کمکت می کنه البته فایل هات باید موجود باشند و اگه میخوای خودش فایل ها رو بسازه از Append استفاده کن
توجه کن شرط حلقه هیچ گاه انجام نمی شود و بعد از تمام شدم فایل با ارور تولید شده برنامه خاتمه می یابد

کد:

---

Private Sub Command1_Click()
Open "h:\file1.txt" For Input As #1
Open "h:\file2.txt" For Output As #2
Do Until a = 1
On Error GoTo l
Input #1, txt
txt = txt & "*"
Print #2, txt
Loop
l:
End Sub

---

اگه مشکلی بود بگو:31:

نقل قول:

---

اگه مشکلی بود بگو

---

يه قسمتش رو يادتون رفت...!؟!

کد:

---

Private Sub Command1_Click()
Open "h:\file1.txt" For Input As #1
Open "h:\file2.txt" For Output As #2
Do Until a = 1
On Error GoTo l
Input #1, txt
txt = txt & "*"
Print #2, txt
Loop
l:
Close #1
Close #2
End Sub

---

البته مشكل خيلي حادي ايجاد نمي كنه...!؟!

ولي... اين راه خوبي نيست...!؟!

ببينيد اين چطوره...؟! :

کد:

---


Dim IFNum, OFNum As Integer
Dim InputFile, OutputFile As String
Dim LineData As String

IFNum = 1
OFNum = 2

InputFile = "F:\1.txt"
OutputFile = "F:\2.txt"

Open InputFile For Input As #IFNum
Open OutputFile For Output As #OFNum

Do While Not EOF(IFNum)

    Line Input #IFNum, LineData
 
    Print #OFNum, LineData & "*"
 
Loop

Close #IFNum
Close #OFNum

---

ديگه نيازي نيست كه برنامه Error بده...!؟! :دي

موفق باشيد...!؟!

از همتون واقعا متشکرم:46:

جالب بود نمیدونستم توی فایل ها هم EOF داریم
ازت ممنونم plus عزیز:11:

از همه ممنونم اما می خواهم ببینم کسی بلده همین برنامه را در ویژوال بیسیک 2010 به من یاد بده ؟

نقل قول:

---

از همه ممنونم اما می خواهم ببینم کسی بلده همین برنامه را در ویژوال بیسیک 2010 به من یاد بده ؟

---

تو بخش .net framework درخواست بده

حالا اصلا این net frame work که میگی کجا هست ؟ میشه آدرسشا برام بزنی؟ ممنون میشم:11:

اینجا :دی

کد:

---

http://forum.p30world.ir/forumdisplay.php?f=92

---