Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

Teil von Tekst ausnemen, convertieren von Hex zum ASCII Kategorie: Programmierung Basic (von Baltus - 22.11.2010 13:01)
Ich nutze:
C-Control Pro Mega128, CC-Pro 128 Application Board
Ich woll gerne ein Teil von eine String (KarakterLinien) ausnemen (Engl. TextPartition).
Es gelingt die einzelne Zeichen am Schirm zu tonen, aber nicht die Zeichen an einander zu reihen.
Wer hat eine Lösung?



Dim langetekst(20), langetekst2(200), strOutput(20) As Char
Dim strLine1(20), strLine2(20) As Char

Sub main()
strLine2="RiaKeesViktor"
TextPartition(strLine2, 3,4)
Msg_WriteText(strOutput)
End Sub


Sub TextPartition(ByRef strLine As Char, intStart As Integer, intLength As Integer) As Char
Dim i As Integer
Dim teken(2) As Char
'Based on manual C-Control Pro Mega Series, p. 105
strOutput=""    'Clear strOutput

i=intStart
    Do While strLine(i)
        If i=intStart+ intLength Then: Exit: End If
    'Str_Copy(strOutput, Char(strLine(i)),STR_APPEND)  'Error: unpexpected Char
        Msg_WriteInt(i): Msg_WriteChar(9)               'only for testpurposes
        Msg_WriteChar(strLine(i)): Msg_WriteChar(13)    'only for testpurposes
    i=i+1
    End While

Msg_WriteText(strOutput)                                'only for testpurposes
 Return i
End Sub


    Antwort schreiben


Antworten: