none
Listbox 我要做出 存檔 讀檔 功能 研究很久還是不會 求大大幫忙 RRS feed

  • 問題

  • Listbox  我要做出  存檔  讀檔  功能  研究很久還是不會 求大大幫忙

    我的Listbox  裡面有5個按鈕   新增  刪除  修改  存檔  讀檔

    我的新增  刪除  修改   很簡單的做出來了功能也正常

    但是存檔  讀檔很困難阿 怎麼寫都寫不出來  路徑給他們  我一樣按下存檔  讀檔沒反應  資料一樣是空白的

    請求大大們支援一下

     

    2014年9月16日 上午 06:28

解答

  • 先假設你要存的是文字檔。

    存檔時的開檔:File.OpenWrite(),再配合 StreamWriter 寫進去。

    讀檔時的開檔:File.OpenRead(),再配合 StreamReader 讀入。

    不過你既然是用 ListBox,顯示你還要加上像分行或分欄的方式區分你每一項資料。


    強力監督SQL Injection問題!!

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    2014年9月16日 上午 06:36
    版主
  • 看了你前一篇和這一篇的貼文與回應, 有幾個建議參考看看

    (1) 先放下手邊盲目寫程式碼的動作, 花時間先理解一些 Visual Basic 很基本的東西, 不是只有讀過, 而是要稍微理解

    如: Visual Basic 程式設計手冊 ,使用 Visual Basic 開發應用程式 , Visual Basic 語言參考

    (2) 如果你覺得線上文件很枯燥, 可以找本適合的書來看,曹祖聖老師和蔡文龍老師寫的這幾本我個人覺得很適合初學者
    Visual Basic 2013程式設計經典

    Visual Basic 2013學習經典

    或者, 你可以親自去書局, 花點時間詳細挑幾本適合你的書

    (3) 以上的假設是你寫程式只是個興趣, 如果你要靠寫程式過活, 又想早點上手,找個正規的課程來上恐怕是比較理想的.

    資策會, 恆逸或巨匠應該都有長期的課程 (3~6個月), 這類課程通常都有補助特定對象, 你可以詢問看看.

    (4) 我的經驗是, 你必須很有毅力的靠自己去理解大部分的程式碼涵義, 我們在論壇上都是義務的回答者, 重點是我們同樣只有 24 小時一天, 同樣要工作, 要養家活口. 不可能有太多的時間一行一行釐清你的問題. 我以前是靠著筆和紙, 一行行自己在紙上寫下程式運行的結果, 這樣刻苦的方式使得自己可以很快了解程式運行的過程, 如果光靠電腦跑結果給你看, 用腦思考的活動就會降低. 

    這不是一條很好走的路, 請加油


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。


    2014年9月17日 下午 04:07
    版主

所有回覆

  • 先假設你要存的是文字檔。

    存檔時的開檔:File.OpenWrite(),再配合 StreamWriter 寫進去。

    讀檔時的開檔:File.OpenRead(),再配合 StreamReader 讀入。

    不過你既然是用 ListBox,顯示你還要加上像分行或分欄的方式區分你每一項資料。


    強力監督SQL Injection問題!!

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    2014年9月16日 上午 06:36
    版主
  • 不懂..能再詳細點說明嗎= =

    2014年9月16日 上午 06:45
  • 我的是 PAR檔 
    2014年9月16日 上午 06:45
  • Public Class Form1
     
     
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim Ret As Boolean
            Dim i As New Short

            For i = LBound(aa) To UBound(aa)
                If aa(i).Text = "" Then
                    MsgBox("不能空白", MsgBoxStyle.ApplicationModal + vbCritical)
                    Exit Sub
                End If
            Next
            Ret = mm(0, Application.StartupPath & "\Lots.par")
            ID(0) = TextBox1.Text
            ID(1) = TextBox2.Text
            ID(2) = TextBox3.Text
            ID(3) = TextBox4.Text
            ID(4) = TextBox5.Text
            MsgBox("產品資訊輸入完成!!", vbInformation, "產品資訊")
        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim Ret As Boolean

            Ret = mm(1, Application.StartupPath & "\Lots.Par")


        End Sub

    End Class

    我有個模組

    Module Module1
        Public aa As TextBox() = New TextBox() {Form1.TextBox2, Form1.TextBox3, Form1.TextBox4, Form1.TextBox5, Form1.TextBox1}
        Public id(0 To 4) As String
        Public Function mm(ByRef X As Integer, ByRef Z As String) As Boolean

            mm = False
            Dim i As Integer
            Dim filenum As Integer
            Dim counter As Long
            Dim strtemp As String

            Select Case X
                Case 0
                    filenum = FreeFile()
                    FileOpen(filenum, Z, OpenMode.Output)

                    For i = LBound(aa) To UBound(aa)
                        Print(filenum, aa(i).Text)
                        Print(filenum, vbCrLf)
                    Next i
                    FileClose(filenum)

                Case 1

                    filenum = FreeFile()
                    FileOpen(filenum, Z, OpenMode.Input)
                    counter = 0
                    Do Until EOF(filenum)
                        strtemp = LineInput(filenum)
                        aa(counter).Text = strtemp
                        counter = counter + 1

                    Loop
                    FileClose(filenum)

            End Select

            mm = False
            Exit Function
    err:
            MsgBox(Err.Description, MsgBoxStyle.ApplicationModal + vbCritical, "相關參數存檔")
            mm = False
            FileClose(filenum)

        End Function
    End Module

    畫面很簡單  5個textbox 跟兩個 Button1 而已  我也沒改名子

    希望有高手能跟我說為什麼要這樣寫  每行的解釋

    或是哪段程式碼可以不用打  或是可以精簡的

    這是我照著某個範例單獨拉出來打出來的程式碼

    2014年9月16日 上午 10:06
  • 問原作者比在這問別人快。


    強力監督SQL Injection問題!!

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    2014年9月16日 下午 01:01
    版主
  • 高手在這裡 http://www.books.com.tw/products/0010626692

    每行解譯在這裡 http://www.books.com.tw/products/0010626692


    理直氣和,切記。

    推廣

    微軟免費中文影音線上教學網站

    2014年9月16日 下午 01:01
  • Listbox  我要做出  存檔  讀檔  功能  研究很久還是不會 求大大幫忙

    我的Listbox  裡面有5個按鈕   新增  刪除  修改  存檔  讀檔

    我的新增  刪除  修改   很簡單的做出來了功能也正常

    但是存檔  讀檔很困難阿 怎麼寫都寫不出來  路徑給他們  我一樣按下存檔  讀檔沒反應  資料一樣是空白的

    請求大大們支援一下

     


    發問時請在標題中簡述問題,請勿在裡面陳述請求及煩惱

    蘇老碎碎念
    資訊無涯,回頭已不見岸
    Facebook - 微軟台灣官方論壇愛好者俱樂部
    如何在論壇正確發問,請參考iThome的文章: 如何問到我要的答案

    2014年9月16日 下午 01:35
    版主
  • 本版置頂公告看過嗎?

    張貼文章應注意事項及應提供資訊


    不精確的問法,就會得到隨便猜的答案;自己都不肯花時間好好描述問題,又何必期望網友會認真回答?

    2014年9月16日 下午 03:23
  • 搜尋 控制項陣列

    http://social.msdn.microsoft.com/Forums/zh-TW/home?forum=232#forum=232&sort=relevancedesc&brandIgnore=True&searchTerm=%E6%8E%A7%E5%88%B6%E9%A0%85%E9%99%A3%E5%88%97&content=Search


    不精確的問法,就會得到隨便猜的答案;自己都不肯花時間好好描述問題,又何必期望網友會認真回答?

    2014年9月16日 下午 03:28
  • 你把每個看不懂的用搜尋引擎搜尋不就好了,

    比方 UBound 就搜尋 UBound MSDN

    你應該自己先花點時間做大略的理解, 再問其中不了解的點, 而不是要求別人逐行翻譯.


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2014年9月16日 下午 05:25
    版主
  • 你也沒貼程式碼,實在叫人無法猜測您的程式是怎麼寫

    舉例來說,你內容談到路徑,路徑又是什麼? 他們,他們又是誰?


    微軟免費線上課程

    HTML5 & JavaScript程式開發實戰(MyBook)

    開發ASP.NET您要瞭解的基楚

    http://www.dotblogs.com.tw/ian (MyBlog)

    2014年9月17日 上午 01:42
  • //範例照著打 看不懂 
    
    //哪個部分不懂 去查
    
    //誰出生就懂
    
    //解釋完畢
    
    


    2014年9月17日 上午 04:15
  • 我不知道怎樣說我的問題點  例如為什麼要這樣寫  或是有其他寫法嗎  可能我說法錯誤了  我因該問如果血儲存讀取  還有其他種寫法嗎 
    2014年9月17日 上午 09:50
  • 例如   If aa(i).Text = "" Then  這行一定要有這行嗎如果重一個完全空白的要寫出這些我真的沒辦法我只能照著範例慢慢的打 做一些很簡單很智障的修改而已 

    2014年9月17日 上午 09:53
  • 現在  我開一個新的專案  沒辦法重空白的慢慢寫起來

    例如寫個 儲存 讀檔這樣  

    我沒辦法重空白的專案慢慢一個一個寫出來

    有沒有高手傳授點訣竅  幾個重要步驟有了就可以寫出來了 

    這困擾我很久   不知所措

    • 已合併 璉璉Moderator 2014年9月20日 上午 11:47 同使用者後續問題
    2014年9月17日 上午 09:56
  • 你可以試著拿掉 看看啊
    看看 有空白資料 會發生甚麼事
    不就知道了

    2014年9月17日 上午 09:57
  • 你把每個看不懂的用搜尋引擎搜尋不就好了,

    比方 UBound 就搜尋 UBound MSDN

    你應該自己先花點時間做大略的理解, 再問其中不了解的點, 而不是要求別人逐行翻譯.


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    抱歉  我因該說法錯誤了 裡面有些元件 我知道他的用處  因該說我不知道為甚麼要用這個語法來寫  如果一個空白專案 我要該怎麼下手才對 
    2014年9月17日 上午 09:58
  • 問原作者比在這問別人快。


    強力監督SQL Injection問題!!

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    抱歉  我因該說法錯誤了 裡面有些元件 我知道他的用處  因該說我不知道為甚麼要用這個語法來寫  如果一個空白專案 我要該怎麼下手才對 
    2014年9月17日 上午 09:59
  • //範例照著打 看不懂 
    
    //哪個部分不懂 去查
    
    //誰出生就懂
    
    //解釋完畢
    


    抱歉  我因該說法錯誤了 裡面有些元件 我知道他的用處  因該說我不知道為甚麼要用這個語法來寫  如果一個空白專案 我要該怎麼下手才對 
    2014年9月17日 上午 10:00
  • 與其在這裡念一堆,不如把手邊的書唸熟,裡面的範例程式抄個 100 遍。

    但抄完以後要舉一反三,否則只學到怎麼抄是沒用的。


    強力監督SQL Injection問題!!

      • 小朱的技術隨手寫:http://www.dotblogs.com.tw/regionbbs/
      • 雲端學堂Facebook: http://www.facebook.com/studyazure

    2014年9月17日 上午 11:22
    版主
  • 如果您對於  If aa(i).Text = "" Then 的意思就已經不了解

    那麼我建議您先去學基本的語法跟邏輯概念

    Visual Basic 程式設計手冊

    微軟免費線上課程

    HTML5 & JavaScript程式開發實戰(MyBook)

    開發ASP.NET您要瞭解的基楚

    http://www.dotblogs.com.tw/ian (MyBlog)


    • 已編輯 No.18MVP 2014年9月18日 上午 01:52 修改參考資料
    2014年9月17日 下午 03:17
  • 先把 Visual Basic 程式設計手冊 學會再說其它的

    PS:想走這條路,沒有那種幾個步驟就完成的,如果有,那我也勸您快換跑道,因為任何人都學的會,路人甲都可以取代您的工作


    微軟免費線上課程

    HTML5 & JavaScript程式開發實戰(MyBook)

    開發ASP.NET您要瞭解的基楚

    http://www.dotblogs.com.tw/ian (MyBlog)


    • 已編輯 No.18MVP 2014年9月18日 上午 01:51 修改參考資料
    2014年9月17日 下午 03:20
  • 訣竅在這裡 http://msdn.microsoft.com/library/


    理直氣和,切記。

    推廣

    微軟免費中文影音線上教學網站

    2014年9月17日 下午 03:23
  • 看了你前一篇和這一篇的貼文與回應, 有幾個建議參考看看

    (1) 先放下手邊盲目寫程式碼的動作, 花時間先理解一些 Visual Basic 很基本的東西, 不是只有讀過, 而是要稍微理解

    如: Visual Basic 程式設計手冊 ,使用 Visual Basic 開發應用程式 , Visual Basic 語言參考

    (2) 如果你覺得線上文件很枯燥, 可以找本適合的書來看,曹祖聖老師和蔡文龍老師寫的這幾本我個人覺得很適合初學者
    Visual Basic 2013程式設計經典

    Visual Basic 2013學習經典

    或者, 你可以親自去書局, 花點時間詳細挑幾本適合你的書

    (3) 以上的假設是你寫程式只是個興趣, 如果你要靠寫程式過活, 又想早點上手,找個正規的課程來上恐怕是比較理想的.

    資策會, 恆逸或巨匠應該都有長期的課程 (3~6個月), 這類課程通常都有補助特定對象, 你可以詢問看看.

    (4) 我的經驗是, 你必須很有毅力的靠自己去理解大部分的程式碼涵義, 我們在論壇上都是義務的回答者, 重點是我們同樣只有 24 小時一天, 同樣要工作, 要養家活口. 不可能有太多的時間一行一行釐清你的問題. 我以前是靠著筆和紙, 一行行自己在紙上寫下程式運行的結果, 這樣刻苦的方式使得自己可以很快了解程式運行的過程, 如果光靠電腦跑結果給你看, 用腦思考的活動就會降低. 

    這不是一條很好走的路, 請加油


    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。


    2014年9月17日 下午 04:07
    版主