برنامه جست و جو در فایل متنی

[megatron]

با سلام.

من برنامه جست و جو در فایل متنی رو نوشتم ولی یک جاش Error می ده.

میشه ببینید کجای کار من ایراد داره.

با تشکر.

[ajlajlajl]

معلومه که کار نمیکنه.:

کد 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 اولش نمیدونم چیه ولی تا وقتی بود خرابکاری میکرد. و یه پیشنهاد. اول همه متن رو بریز توی یه رشته بعد همهشو یکجا بریز توی تکست باکس.

[Di Di]

فكر مي كنم منظور دوستمون از Str همون تابع CStr بوده كه براي تبديل رشته ها به رشته هاي متني استفاده مي شه. به نظرم احتياجي به اين كار نيست چون كامپايلر وي بي خيلي فهميده تر از اين حرفاست و خودش زحمت تبديل رو مي كشه!!
ولي اگه خواستي از اون استفاده كني بايد به اين صورت بنويسي :
X = S.ReadLine
X= CStr ( x ) 'ttt

[hossain p]

megatron ممنونم از برنامه ات