Hallo Leute,
wie der Anfangsbuchstabe gross geschrieben wird habe ich heraus,
aber was mache ich, wenn in dem String ein „-“ wie z.B. bei einem Doppelnamen auftaucht ?
recLesen![Ort] = StrConv(LCase(recLesen![Ort]), 3)
kann jemand helfen ?
Gruß Christian
Hi,
wie der Anfangsbuchstabe gross geschrieben wird habe ich
heraus,
aber was mache ich, wenn in dem String ein „-“ wie z.B. bei
einem Doppelnamen auftaucht ?recLesen![Ort] = StrConv(LCase(recLesen![Ort]), 3)
halt diesen Fall extra und mit Hilfe der verschiedenen Stringfunktionen passend analysieren und behandeln…
Soll heißen: Nachprüfen ob und wo ein „-“ Zeichen im String steht und dann evtl. den Folgebuchstaben in Großbuchstaben konvertieren.
Gruß
Franz, DF6GL
Ich krig das nicht hin !
Ich komme bis zu der Position dass ich die Stelle des „-“ als
intPos im Direktfenster zurück bekomme.
Aber dann versuche ich mit UCase die intPos zu Ändern.
Das funktioniert aber nicht. - Hiiiiiillllllfffeeee !!!
Gruß Christian
…entschuldige,
so sieht das bei mir aus.
intPos = InStr(1, recLesen![Ort], „-“)
If intPos 0 Then
recLesen![Ort] = Replace(recLesen![Ort], (intPos + 1), (UCase(intPos + 1)))
Else
End If
…ich wollte Dich nicht im dunkeln tappen lassen.
Gruß Christian
Hallo,
Ich krig das nicht hin !
Ich komme bis zu der Position dass ich die Stelle des „-“ als
intPos im Direktfenster zurück bekomme.Aber dann versuche ich mit UCase die intPos zu Ändern.
keine Panik, einfach locker überlegen…
Dim intpos as Long
intpos=Instr(recLesen![Ort],"-")
if intpos >0 then
recLesen![Ort] = Mid(recLesen![Ort],1,intpos) & Ucase(Mid(recLesen![Ort],intpos+1,1) & Mid(recLesen![Ort],intpos+2)
End If
Viele Grüße vom Bodensee
Franz , DF6GL
PS: Feedback erwünscht!
Hallo,
mit replace klappt das nicht so recht…
Hallo Franz,
das funktioniert auch nicht.
Ich hab das jetzt so verhaftet, dass ich hinter den „-“ ein Leerzeichen einfüge, dann die „Anfangsbuchstabe-Großschreibung“ darüber laufen lasse und anschließend das Leerzeichen wieder lösche.
Das sieht dann sooo aus:
Do Until recLesen.EOF
recLesen.Edit
If recLesen![Ort] > „“ Then
recLesen![Ort] = Replace(recLesen![Ort], „-“, "- ")
Else
recLesen![Ort] = „“
End If
recLesen![Ort] = StrConv(LCase(recLesen![Ort]), 3)
If recLesen![Ort] > „“ Then
recLesen![Ort] = Replace(recLesen![Ort], "- ", „-“)
Else
recLesen![Ort] = „“
End If
recLesen.Update
Debug.Print recLesen![Ort]
Gruß Christian