Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ausblenden (löschen)
Autor: michi-bib
Datum: 09.08.02 19:27
Hallo Claus, ich habe schon fast damit gerechnet, daß der Fall mehrfach auftritt. Du hast jetzt also unterschiedliche Trennzeichen für Anfang und Ende des Bereichs, der auszuschließen ist, vereinbart. So sollte es funzen: Private Sub Command1_Click() Dim sOrg As String Dim sNew As String Dim pos0 As Long Dim pos1 As Long Dim pos2 As Long sOrg = "abc{123}def{456}ghi{789}jkl" 'sOrg = "abc{123}def{456}ghi{789}" pos0 = 1 pos1 = InStr(1, sOrg, "{") Do While pos1 > 0 pos2 = InStr(pos1 + 1, sOrg, "}") If pos2 = 0 Then MsgBox "Fehler: keine KlammerZu für KlammerAuf" Exit Sub End If sNew = sNew + Mid(sOrg, pos0, pos1 - pos0) pos0 = pos2 + 1 pos1 = InStr(pos0, sOrg, "{") Loop If pos2 <> 0 And Len(sOrg) > pos2 Then sNew = sNew + Mid(sOrg, pos2 + 1) MsgBox sNew End Sub By the way: Du solltest nicht einfach neu posten, sondern auf einen Antwortbeitrag reagieren. Dann bekomme ich nämlich eine Mail, daß auf meine Antwort etwas eingegangen ist. Oder du hättest dich direkt per EMail an mich gewendet, indem du auf den blauen Link hinter Author geklickt hättest . Ich hoffe, daß hilft weiter. Gruß Michi aus Hannover

ausblenden (löschen)	98	Claus	08.08.02 14:36
Re: ausblenden (löschen)	68	michi-bib	09.08.02 19:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen