Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Herausforderung die 2.

Herausforderung die 2.
27.02.2006 03:42:23
Richard
Diesmal wird's echt schwer!
Ich habe einen String, der mehrzeilig ist:
STRING:
//testäää
//testäää
ggägägägä //testääää
/testäää
:ENDE STRING
Jetzt wende ich die Replace Function an:
Replace(STRING, "ä", "1")
Das Ergebnis sieht folglich so aus:
ERGEBNISSTRING:
//test111
//test111
gg1g1g1g1 //test1111
//test111
:ENDE STRING
Es soll aber so aussehen:
WUNSCHSTRING:
//testäää
//testäää
gg1g1g1g1 //testääää
//testäää
:ENDE STRING
Die Replace-Lösung soll nun ab "//" bis zum ZeilenEnde alles ignorieren und damit verschonen!
So helfe man mir in großer Not -
denn dies soll sein des Euren Brot.
So will ich euch ewig dankbar sein,
denn ich sei nunmal kein undank Schwein!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Herausforderung die 2.
27.02.2006 07:54:56
Heiko
Moin Richard,
z.B. so:

Function fcnErsetzen(strText As String, strAbHierNichtMehr As String) As String
Dim arrHelp() As String
Dim lngI As Long, lngHelp As Long
' Wenn die Zeilenumbrüche nicht alles VbLf sind sondern auch vbCr dann diese Zeile aktivieren.
' strText = Replace(strText, vbCr, vbLf)
arrHelp = Split(strText, vbLf)
For lngI = LBound(arrHelp) To UBound(arrHelp)
lngHelp = InStr(arrHelp(lngI), strAbHierNichtMehr)
If lngHelp > 0 Then
arrHelp(lngI) = Replace(Left(arrHelp(lngI), lngHelp - 1), "ä", "1") & _
Right(arrHelp(lngI), Len(arrHelp(lngI)) - lngHelp + 1)
Else
arrHelp(lngI) = Replace(arrHelp(lngI), "ä", "1")
End If
Next lngI
fcnErsetzen = Join(arrHelp, vbLf)
End Function


Sub test1()
Dim strHelp As String
strHelp = fcnErsetzen("//testäää " & vbLf & _
"//testäää" & vbLf & _
"ggägägägä //testääää" & vbLf & _
"//testäää", "//")
MsgBox strHelp
End Sub


Sub test2()
Dim strHelp As String
strHelp = fcnErsetzen(ActiveSheet.Range("C1").Text, "//")
MsgBox strHelp
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige