分離奇數項與偶數項字串

vx96825k

大家好，我想以","作為分離字元,把奇數項與偶數項字串分離並放置於兩個box
字串如  [ ,0000,000A,0000,000A,0000,000A,0000,000A ]

使用以下程式會"出現索引在陣列的界限之外"的錯誤訊息

For j = dataSep.GetLowerBound(0) To dataSep.GetUpperBound(0)
rxdmix.Text &= dataSep(j)
rxdcounter.Text &= dataSep(2 * j)
rxdvolt.Text &= dataSep((2 * j) + 1)
...

瀏覽完整內容，請先 註冊 或 登入會員

gpgpi

我有個疑問~你的字串是含逗號的字串，還是已經是陣列?

還有你開頭是一個 " , " ...在這逗號前面是一個空白還是沒東西?

以上兩點還滿重要的...可以的話請回答一下

因為我不知道以上兩點你實際情況是怎樣，所以我就照我理解的方式做

簡單做給你看~我就不放程式給你抓了
表單上放一個Button、一個TextBox、兩個ListBox

...

瀏覽完整內容，請先 註冊 或 登入會員

vx96825k

是含逗號的字串,然後逗號是第一個字元前面沒有資料
我的資料是透過單晶片然後用RS232收進PC端,所以我列的字串只是其中的極小段
因為資料量很大所以我是用Timer收資料進 rxdmix.Text這個textbox
之後再用 Split 把 string 變成陣列
再來取得陣列的上下限後用For迴圈將字串分離

1. For j = dataSep.GetLowerBound(0) To dataSep.GetUpperBound(0)
   
2. rxdmix.Text &= dataSep(j)
   
3. rxdcounter.Text &= dataSep(2 * j)
   
4. rxdvolt.Text &= dataSep((2 * j) + 1)
   
5. Next               

複製代碼

在索引的數值不超過 j 值前都可以成功分離,但是超過後就會亂抓資料
然後就會顯示"出現索引在陣列的界限之外"的錯誤訊息
以上就是我的實際狀況與問題了

謝謝gpgpi的回答
雖然不知道我改不改的成功

anyway 謝謝你!...

瀏覽完整內容，請先 註冊 或 登入會員

vx96825k

以下是完整的程式碼

1. Imports System.IO.Ports
   
2. Imports System.Text
   
3. 
   
4. Public Class Form1
   
5.     '**************************************************************
   
6.     '表單的Load事件中先將所有的通訊埠先列出來
   
7.     '將通訊埠排序，並將第一個通訊埠設為預設值
   
8.     '**************************************************************
   
9. 
   
10.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
11.         For Each sp As String In SerialPort.GetPortNames()
    
12.             cmb1.Items.Add(sp)
    
13.         Next
    
14.         cmb1.Sorted = True
    
15.         cmb1.SelectedIndex = 0
    
16.     End Sub
    
17. 
    
18.     '**************************************************************
    
19.     '『開啟通訊埠』按鈕的Click事件
    
20.     '此事件將設定通訊埠參數，並開啟通訊埠
    
21.     '**************************************************************
    
22.     Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
    
23.         Dim EncodeType As Encoding
    
24.         RS232.PortName = cmb1.SelectedItem.ToString
    
25.         RS232.BaudRate = 2400
    
26.         RS232.Parity = Parity.None
    
27.         RS232.DataBits = 8
    
28.         RS232.StopBits = StopBits.One
    
29. 
    
30.         '檢查編碼方式
    
31.         If rbtnCode1.Checked Then EncodeType = Encoding.UTF8
    
32.         If rbtnCode2.Checked Then EncodeType = Encoding.UTF7
    
33.         If rbtnCode3.Checked Then EncodeType = Encoding.ASCII
    
34.         If rbtnCode4.Checked Then EncodeType = Encoding.Unicode
    
35. 
    
36.         If Not RS232.IsOpen Then
    
37.             RS232.Open()
    
38.             Timer1.Interval = 100
    
39.             Timer1.Enabled = True
    
40.         Else
    
41.             MsgBox("通訊埠開啟錯誤(通訊埠已被開啟)", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel)
    
42.             End
    
43.         End If
    
44.     End Sub
    
45. 
    
46.     '**************************************************************
    
47.     '『關閉通訊埠』按鈕的Click事件
    
48.     '以Cｌose方法關閉通訊埠，並釋放物件所佔用的資源
    
49.     '**************************************************************
    
50.     Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
    
51.         If RS232 Is Nothing OrElse Not RS232.IsOpen Then
    
52.             MsgBox("通訊埠尚未開啟", MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel)
    
53.         Else
    
54.             Timer1.Enabled = False
    
55.             RS232.Close()
    
56.         End If
    
57.     End Sub
    
58. 
    
59.     '**************************************************************
    
60.     '『結束程式』按鈕 的Click事件
    
61.     '此事件將設定通訊埠參數，並開啟通訊埠
    
62.     '**************************************************************
    
63.     Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
    
64.         If Not RS232 Is Nothing Then
    
65.             If RS232.IsOpen Then RS232.Close()
    
66.         End If
    
67.         End
    
68.     End Sub
    
69. 
    
70.     '**************************************************************
    
71.     '計時器控制項的Timer事件
    
72.     '將接收的動作放於其中，只要有資料就會被接收進來
    
73.     '**************************************************************
    
74.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    
75.         Dim instring As String
    
76.         Dim dataStr As String
    
77.         Dim Sep(0) As Char
    
78.         Dim dataSep() As String, i As Integer, j As Integer
    
79.         'Dim x, x1
    
80. 
    
81.         instring = ""
    
82.         Try
    
83.             RS232.ReadTimeout = 1000
    
84.             instring = RS232.ReadExisting()
    
85.             If instring.Length = 0 Then
    
86.                 Exit Sub
    
87.             Else
    
88.                 rxdmix_16.Text += instring
    
89.                 i = rxdmix_16.TextLength
    
90.                 Textlength.Text = i
    
91.                 dataStr = rxdmix_16.Text
    
92.                 Sep(0) = "," '訂定分離字元陣列
    
93.                 dataSep = dataStr.Split(Sep) '將字串依分離字元分離
    
94.                 rxdmix_16.Text = ""
    
95. 
    
96.                 For j = dataSep.GetLowerBound(0) To dataSep.GetUpperBound(0)
    
97. 
    
98.                     rxdmix_16.Text &= dataSep(j)
    
99.                     rxdcounter.Text &= dataSep(2 * j)
    
100.                     rxdvolt.Text &= dataSep((2 * j) + 1)
     
101. 
     
102.                     'Dim x, x1
     
103.                     'x = "&H" + dataSep(j)
     
104.                     'x1 = CLng(x)
     
105.                     'rxdmix_10.Text = x1
     
106. 
     
107.                 Next
     
108. 
     
109.             End If
     
110.         Catch ex As Exception
     
111.             MessageBox.Show("讀取錯誤:" + ex.ToString, "錯誤通知", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
112.         End Try
     
113.     End Sub
     
114. 
     
115. 
     
116.     '**************************************************************
     
117.     '通訊埠的KeyPress事件，在此不讓使用者輸入資料
     
118.     '**************************************************************
     
119.     Private Sub txd1_keypress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txd1.KeyPress
     
120.         If e.KeyChar = vbCr Then
     
121.             If Not RS232 Is Nothing Then
     
122.                 RS232.Write(txd1.Text)
     
123.             End If
     
124.         End If
     
125.     End Sub
     
126. 
     
127.     '**************************************************************
     
128.     '傳送文字框的KeyPress事件，當檢測到Enter按鍵時
     
129.     '將所有的資料送出
     
130.     '**************************************************************
     
131.     Private Sub cmb1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmb1.KeyPress
     
132.         e.KeyChar = ChrW(0)
     
133.     End Sub
     
134. 
     
135. End Class

複製代碼

以下是我的介面及錯誤通知


紅色框框裡的就是亂抓的資料...

瀏覽完整內容，請先 註冊 或 登入會員