| Teil von Tekst ausnemen, convertieren von Hex zum ASCII Kategorie: Programmierung Basic (von Baltus - 22.11.2010 13:01) | ||
| ||
|
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: | ||
Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum