Jedes 2. Zeichen auslesen

[chuvak]

Ich habe eine Textdatei "a" mit folgendem Text: "abcdefghi". Es soll jetzt daraus jede 2. Zahl ausgelesen werden, in diesem Beispiel "bdeh".
Wie kriege ich das hin?

Danke!

 

[DrSoong]

Am besten, du liest erst mal den ganzen Text aus und holst dann jedes zweite Zeichen raus:

 Text = "abcdefgh" 'du liest den ganzen Text aus, ich weis hier einfach mal zu Testzwecken was zu
 For cnt = 1 To Len(Text) Step 2
  NeuerText = NeuerText & Mid(Text, cnt, 1)
 Next cnt
 'Jetzt steht in NeuerText jeder 2 Buchstabe aus dem alten Text

Der Doc!

 

[Ein_Freund]

Hallo, hier mal ein Vorschlag, wie Du aus einem String jedes zweite Element ausliest und in einen anderen String speicherst:

Dim str$ = "abcdefghijklmnopq"
Dim strNeu$
Dim i%
For i = 1 To Len(str) Step 2
    strNeu = strNeu & Mid(str, i, 1)
Next i
MsgBox(strNeu)

Gruß

EDIT: Sorry Doc, das war wohl ziemlich gleichzeitig

 

[DrSoong]

@Ein_Freund: Wie heißts so schön: Doppelt gemoppelt hält besser.

BTW: Benutz doch die VB-Tags, da hast du auch Syntaxhighlighting dabei. Einfach [code=vb] und [/code] statt [code] bzw.[/code] verwenden.


Der Doc!

 

[Ein_Freund]

Original von DrSoong
BTW: Benutz doch die VB-Tags, da hast du auch Syntaxhighlighting dabei....

done...


@Doc: Allerding, wie sehr sich unsere Vorschläge ähneln - ja beinahe gleichen - finde ich schon ein wenig erschreckend :suspekt:

Wie auch immer - back to topic...