none
VB 連結資料庫字串處理Split RRS feed

  • 問題

  • 請問以下字串是一個連結access和ini的一部分程式,否有大大能幫忙回答Split是怎樣去做處理的

     
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ‧
    ‧
    ‧
       LoadData(DataList(i).DataPath, DataList(i).DataName)
                     TextBox1.Text = DBName
    ‧
    ‧
    ‧
    ‧
    
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
             DSEP = (Load_int("DATA", "分隔符號", ProgramPath + "\Config.ini"))
             If DSEP = Nothing Then DSEP = " "
    
    ‧
    ‧
    ‧
    ‧
    
    
    Function Load_int(ByVal sSection As String, ByVal sKey As String, ByVal FilePath As String) As String
             '讀出
            Dim st As String
             If My.Computer.FileSystem.FileExists(FilePath) = False Then MsgBox("找不到ini檔") : End
             st = System.IO.Path.GetFullPath(FilePath)
             Dim sKeyValue As New StringBuilder(500)
             Dim nSize As UInt32 = Convert.ToUInt32(500)
             GetPrivateProfileString(sSection, sKey, "", sKeyValue, nSize, st)
             Load_int = sKeyValue.ToString
         End Function
    
    
     Sub LoadData(ByVal filepath As String, ByVal dataname As String)
             Dim Temp As String
             Dim TempRP() As String
            Dim Line As Integer = 0
             FileOpen(1, filepath, OpenMode.Input)
             Do While Not EOF(1)
                 System.Windows.Forms.Application.DoEvents()
                 Temp = LineInput(1)
                 TempRP = Temp.Split(DSEP)
                 Line += 1
                 ProgressBar1.Value += 1
                 InsertData(TempRP(Int(DIDCOL) - 1), dataname, Line.ToString.PadLeft(5, "0"))
             Loop
             FileClose(1)
         End Sub 


    2017年4月13日 上午 09:23

解答

  • MSDN 論壇有程式碼區塊的功能 (當你發文的時候 上方的功能表從右邊算來第二個就是了)。用那個功能貼 Code 會比較好看, 這次我先幫你改了。

    如果你想知道的是 Split 怎麼用,以及一些使用方式說明,請參考 String.Split 方法


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


    2017年4月15日 下午 04:20
    版主

所有回覆

  • 從檔案載入分隔符號,若沒有就用空白。

    你在你有問題的行號設中斷點,配合除錯視窗,就可以看到即時的值,還有問題就逐步執行。


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

    2017年4月13日 上午 11:30
  • 感謝大大的提點與指教

    因為小弟才剛踏入程式這塊

    怕如果一次貼太多的程式碼 大大們也許不想看 所以只擷取某些資訊出來

    對於中斷點部分我有設  但就是覺得在split還是不是很了解才提問

    2017年4月14日 上午 12:43
  • 你沒描述你哪裡不了解或是說怎麼個不了解阿... 貼一段程式碼說不太了解,也只能建議你用除錯模式看了。

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

    2017年4月14日 下午 03:25
  • MSDN 論壇有程式碼區塊的功能 (當你發文的時候 上方的功能表從右邊算來第二個就是了)。用那個功能貼 Code 會比較好看, 這次我先幫你改了。

    如果你想知道的是 Split 怎麼用,以及一些使用方式說明,請參考 String.Split 方法


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


    2017年4月15日 下午 04:20
    版主
  • 好的感謝您
    2017年4月17日 上午 02:45