میشه دستور put و get رو توضیح بدی. من متغیر رو از نوع string معرفی کنم یا byte نمیشه
نقل قول: اگه سورس كمكي مي خواي بگو واست يه نمونشو بنويسم
اگه از بفرستی که خیلی خوب میشه. فقط چیز اضافی نداشته باشه ساده باشه. چون همه جا از این سورس ها پیدا میشه ولی خیلی پیچیدش کردن
من هر چقدر با put و get کلنجار رفتم نشد !
![[تصویر: 308.gif]](http://asefsoft.com/qsimages/308.gif)
سلام بذار يه مثال برات بزنم
Dim a as string *60000, z as string , i
Open "c:/1.txt" For Binary As 1
Open "c:/2.txt" For Binary As 2
for i = 1 to Lof(1) step 60000
get 1,i,z
put 2,i,z
next i
close
.
[/code]
spiderman نوشته است:میشه دستور put و get رو توضیح بدی. من متغیر رو از نوع string معرفی کنم یا byte نمیشه
نقل قول: اگه سورس كمكي مي خواي بگو واست يه نمونشو بنويسم
اگه از بفرستی که خیلی خوب میشه. فقط چیز اضافی نداشته باشه ساده باشه. چون همه جا از این سورس ها پیدا میشه ولی خیلی پیچیدش کردن
سايز متغير هرچي باشه توي هر مرحله از get اون تعداد بايت رو بر ميداره مثلا اگه اينتجر باشه دوبايت و اگه byte باشه يك بايت و اگر استرينگ باشه به تعداد حرف هايي كه توي استرينگ تعريف كردي يعني
کد:
dim st as string *[u][b]n[/b][/u]
كه n تعداد حرف هاي تعريفته
دستور get هم اينطور عمل مي كنه :
کد:
get شماره ي فايل , شروع حركت (از بايت ..) , متغيري براي ذخيره ي اطلاعات كه سايزش مهمه
همين !!!!
حالا فهمیدم چرا درست نمیشه! من برای فایل txt نمی خوام . باید هر فایلی رو بشه اینطوری کپی کرد.اونی که seyyed گزاشت کپی نکرد
![[تصویر: 102.gif]](http://qsmile.com/qsimages/102.gif)
نكته انحرافي اينجاست كه بعد از فشرده سازي آخر فايلو اضافه ميكنن :wink:
spiderman نوشته است:حالا فهمیدم چرا درست نمیشه! من برای فایل txt نمی خوام . باید هر فایلی رو بشه اینطوری کپی کرد.اونی که seyyed گزاشت کپی نکرد
نه داداشي
هيچ ربطي به پسوند فايل نداره
يه پروژه باز کن و دوتا تکست باکس و دوتا باتون توش بزار کارت حله :wink:
کد:
Dim s As String * 1
Dim ss As String
Private Sub Command1_Click()
Open Text1 For Binary As #1
Do Until EOF(1)
Get #1, , s
ss = ss & s
Loop
Close #1
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Open Text2 For Binary As #1
Put #1, , ss
Close #1
End Sub
Private Sub Form_Load()
Command2.Enabled = False
Command1.Caption = "INPUT"
Command2.Caption = "OUTPUT"
Text1.Text = "[ADDRSSS E FILE VOROODI RO INJA BENEVIS]"
Text2.Text = "[ADDRSSS E FILE KHOROOJI RO INJA BENEVIS]"
End Sub
کپی کرد. ولی چرا تو متغیر ss فقط چندتا حرف میاد؟! یعنی اگه من او سه چهار تا حرف رو تو یه فایل exe بزارم همچین برنامه ای درست می شه؟
تو قسمت دوم دستور put هم چیزی نزاشتی. چرا؟
آقا چيه يه هفتس اين پست بازه
بگو دقيقا چي مي خواهي كه من
در حد توانم برات توضيح بدم
