View Full Version : انتقال txt به text
xrezax
شنبه 20 مهر 1392, 08:33 صبح
دوستان من یک فایل txt دارم که 10 کیلوبایت توش نوشته هست.
یه برنامه هم دارم که توش یک text و یک command دارم.
می خوام هر وقت روی دکلمه کلیک کنم 2 کیلوبایت بیاره توی text و همینجور تا آخر ، 2kb ، 2kb انتقال بده برام . بدون اینکه چیزی از فایل txt پاک بشه.
rahnema1
شنبه 20 مهر 1392, 17:48 عصر
با فرض اینکه نوشته های توی فایل انگلیسی باشه:
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
یک شنبه 25 تیر 1396, 14:07 عصر
دوستان چطور میتونم هر 2 کیلوبایتی که توسط سورس بالا به برنامه انتقال بدم رو از فایل txt حذف کنم.
و چطور میتونم دیتاهای منتقل شده رو با (-) از هم جدا کنم و توی یک خط منتقل کنم.. مانند عکس ضمیمه
xrezax
سه شنبه 27 تیر 1396, 14:53 عصر
راه حلی نیست؟
www.pc3enter.tk
شنبه 07 مرداد 1396, 15:41 عصر
سلام از این کد استفاده کن
Text.text= replace(text.text, "-", vbcrlf )
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.