none
vb2008 搜尋問題 RRS feed

  • 問題

  • 我想建立有TEXTBOX 1個存檔鈕 1個搜尋鈕


    Imports System.IO
      Dim filename As String
        Dim c As String
        Dim fileread As StreamReader
        Dim filewriter As StreamWriter

     With SaveFileDialog1
                .InitialDirectory = "c:"
                .Filter = "純文字檔(*.txt)|*.txt"
                .RestoreDirectory = True
                .Title = "存檔"
            End With
            If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
                filename = SaveFileDialog1.FileName
                filewriter = New StreamWriter(filename, False)
                filewriter.Write("櫃子編號:" & TextBox1.Text & vbCrLf & "公司編號:" & TextBox2.Text & vbCrLf & "備品編號:" & TextBox3.Text & vbCrLf & "備品名稱:" & TextBox4.Text & vbCrLf & "備品明細:" & TextBox5.Text & vbCrLf & "備品數量:" & TextBox6.Text)
                filewriter.Close()
            End If

    目前存檔方面沒問題 可是想問 有辦法寫入同個TXT不管我存檔幾次 他就一直存同個TXT 並且往下存檔 

    搜尋方面 想輸入關鍵字之後 自動讀取存檔的TXT 將關鍵字有關的一一列出來顯示

    2010年5月8日 上午 06:39

解答