VB Code:
Dim strData As String
'3.80|3.88|4.00|4.16|4.38|4.45|4.
'is correct except for the last column(7). It should read
'4.56 instead of (4.). Then the next data (3.84) goes back to column 1 and loops like this until done.
'3.84|4.07|4.47|4.54|4.88|5.00|5.30
Private Sub Form_Load()
Dim inrStart As Integer: Dim intX As Integer
strData = "3.803.884.004.164.384.454.563.844.074.474.544.885.005.303.874.264.704.855.225.395.883.984.414.965.175.525.706.264.254.495.205.415.776.016.644.324.685.295.585.966.256.874.574.825.425."
intStart = 1
For intStart = 1 To Len(strData)
intX = InStr(intStart, strData, ".")
' x points to the dot
'start+ dot +2..1+2+2 .. start + x +2
Text1.Text = Text1.Text + Mid(strData, intStart, intX + 3 - intStart) + ","
a = a + 1: If a = 7 Then a = 0: Text1.Text = Text1.Text + vbCrLf
intStart = intX + 2
Next
End Sub
Quote:
3.80,3.88,4.00,4.16,4.38,4.45,4.56,
3.84,4.07,4.47,4.54,4.88,5.00,5.30,
3.87,4.26,4.70,4.85,5.22,5.39,5.88,
3.98,4.41,4.96,5.17,5.52,5.70,6.26,
4.25,4.49,5.20,5.41,5.77,6.01,6.64,
4.32,4.68,5.29,5.58,5.96,6.25,6.87,
4.57,4.82,5.42,5.,