انتقال txt به text

[xrezax]

دوستان من یک فایل txt دارم که 10 کیلوبایت توش نوشته هست.
یه برنامه هم دارم که توش یک text و یک command دارم.
می خوام هر وقت روی دکلمه کلیک کنم 2 کیلوبایت بیاره توی text و همینجور تا آخر ، 2kb ، 2kb انتقال بده برام . بدون اینکه چیزی از فایل txt پاک بشه.

[rahnema1]

با فرض اینکه نوشته های توی فایل انگلیسی باشه:



Public counter as integer
Private Sub Command1_Click()
dim s as byte
dim s1 as string
dim cc as integer
if counter <5 then
sFileName = App.Path & "\myfile.txt"
n = FreeFile()
Open sFileName For Random Access Read As #n Len=1
s1=""
for cc=counter*2048+1 To counter*2048+2048
Get #n, cc, s
s1=s1 & Chr(s)
next cc
close #n
Text1.Text = s1
counter=counter+1
else
MsgBox "End of File"
end if
end sub

[xrezax]

دوستان چطور میتونم هر 2 کیلوبایتی که توسط سورس بالا به برنامه انتقال بدم رو از فایل txt حذف کنم.

و چطور میتونم دیتاهای منتقل شده رو با (-) از هم جدا کنم و توی یک خط منتقل کنم.. مانند عکس ضمیمه

[xrezax]

راه حلی نیست؟

[www.pc3enter.tk]

سلام از این کد استفاده کن

Text.text= replace(text.text, "-", vbcrlf )