۱۱-اردیبهشت-۱۳۸۷, ۱۵:۳۳:۳۸
۱۱-اردیبهشت-۱۳۸۷, ۱۷:۲۸:۱۴
معلومه که کار نمیکنه.:
این s بیچاره از کجا بفهمه که از کجا باید بخونه؟
این خطو باید دقیقا توی اون خط خالی وسط تابع بنویسی:
textbox رو هم multiline کن. این خط Str x = s.ReadLine ، این str اولش نمیدونم چیه ولی تا وقتی بود خرابکاری میکرد. و یه پیشنهاد. اول همه متن رو بریز توی یه رشته بعد همهشو یکجا بریز توی تکست باکس.
کد php:
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1.Text = ""
End If
Do While Not s.AtEndOfStream
Str x = s.ReadLine
Text2 = Text2.Text + x + vbNewLine
Loop
s.Close
End Sub
این s بیچاره از کجا بفهمه که از کجا باید بخونه؟
این خطو باید دقیقا توی اون خط خالی وسط تابع بنویسی:
کد php:
Set s = f.OpenTextFile(CommonDialog1.FileName, ForReading)
textbox رو هم multiline کن. این خط Str x = s.ReadLine ، این str اولش نمیدونم چیه ولی تا وقتی بود خرابکاری میکرد. و یه پیشنهاد. اول همه متن رو بریز توی یه رشته بعد همهشو یکجا بریز توی تکست باکس.
۱۱-اردیبهشت-۱۳۸۷, ۱۹:۱۴:۳۷
فكر مي كنم منظور دوستمون از Str همون تابع CStr بوده كه براي تبديل رشته ها به رشته هاي متني استفاده مي شه. به نظرم احتياجي به اين كار نيست چون كامپايلر وي بي خيلي فهميده تر از اين حرفاست و خودش زحمت تبديل رو مي كشه!!
ولي اگه خواستي از اون استفاده كني بايد به اين صورت بنويسي :
X = S.ReadLine
X= CStr ( x ) 'ttt
ولي اگه خواستي از اون استفاده كني بايد به اين صورت بنويسي :
X = S.ReadLine
X= CStr ( x ) 'ttt
۱۴-اردیبهشت-۱۳۸۷, ۰۳:۵۹:۵۳
megatron ممنونم از برنامه ات