I am trying to split continuous data from multiple sources and put them in richtextbo

[Mahmoud Khalaf]

Hello,

I am using visual basic on visual studio and I am getting data from the GPS and Encoder and Radar through Arduino, and I want to split them in the visual studio form, in richtextboxes, knowing the full code is on the visual studio and I am not using the Arduino software.

Initially, I made a code for the split but of course, it's 100% right, it's only separate on lines.

this is the code :

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim rown As Integer
Dim coulmnn As Integer

coulmnn = 1
rown = RichTextBox1.Lines.Length
Label1.Text = rown

Dim finaldata(rown, coulmnn) As String

Dim x As String = RichTextBox1.Text

Dim splittedarray() = x.Split(vbLf)

For i = 1 To rown

finaldata(i, 1) = splittedarray(i - 1)

Next i


End Sub
End Class

The data come like this :

Data from Encoder :
1
2
3
4
5
6
7
..
..
..
..

Data from GPS :

Location : 51.059494.24.882541 Data/Time: 11/26/2020 22:22:35.00
Location : 51.059494.24.882541 Data/Time: 11/26/2020 22:22:36.00
Location : 51.059494.24.882541 Data/Time: 11/26/2020 22:22:37.00
Location : 51.059494.24.882541 Data/Time: 11/26/2020 22:22:38.00

Thanks and regards,

[SwissProgrammer]

I can give you a couple of links for VB6 but you might be using a .net application. You might have to adjust it as Microsoft has diligently worked at destroying Visual Basic after they saw how extremely valuable VB6 became and they were unable to control how far programmers went with it. Thus, .net with its many conflicting versions and with its always JIT (wide open code for everyone to see all of the time). And thus, starting with VS2010 the Microsoft compiler forcefully injecting back doors into the executables. But, here is some help with VB6 and with parsing the rtf format in case that helps you.


https://duckduckgo.com/?q=%2B%22vb6%...22&t=h_&ia=web

https://www.vbforums.com/showthread....ricks-and-Tips


Years ago, I found it easy to read the rtf (file or string) and parse that directly.

For example:
English: Hello WORLD!
Japanese: こんにちは世界！

In rtf format is:

{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\froman\fprq1\fcharset128 MS PGothic;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20 English: Hello WORLD!\par
Japanese: \f1\'82\'b1\'82\'f1\'82\'c9\'82\'bf\'82\'cd\'90\'a2\'8a\'45\'81\'49\f0\par
\par
}
 

Look at VB6 sites for parsing rtf code. With practice it became very easy for me.

A process to see the rtf:

Open Word Pad and paste in the following:

English: Hello WORLD!
Japanese: こんにちは世界！

Then save the file as EnglishToJapanese.rtf (in the rtf format option)

Close Word Pad.

Change the file extension from .rtf to .txt .

Open the file with NotePad (different from wordpad).

See the text in the rtf code.

I use C++11 these days, but the previous might help you.


Thanks for asking.

[SwissProgrammer]

Here [X] is an rtf example. I should have given you this link earlier.

Save the file locally.
Change the extension to ".rtf" .

Open the file with notepad to see the actual formatting of the .rtf .

Open the file with wordpad to see the file in .rtf .

I hope this helps.

[SioSio]

Is your intention to create as many new rich text boxes as the number of split data and write the split data to each ?

        For i = 1 To rown
 
            finaldata(i, 1) = splittedarray(i - 1)
 
            Dim rtb As New RichTextBox
            With rtb
                .Left = 500
                .Top = 31 * i
                .Width = 400
                .Height = 30
                .Text = finaldata(i, 1)
            End With
            Me.Controls.Add(rtb)
 
        Next i