flash-gordon
Jan 05, 2007, updated at 14:05:54 (UTC)
view12267
view1
0
Goto Top

MSSQL 2000 / Umlaute ersetzen

GermansolvedQuestionDatabasesDevelopment
Geht sowas auch in MSSQL?!

 IsUpCase As Boolean, Res As String
  If IsNull(pString) Then Umlaut = Null: Exit Function
  Res = ""  
  For I = 1 To Len(pString)
    Ch = Mid(pString, I, 1)
    Ch1 = IIf(I < Len(pString), Mid(pString, I + 1, 1), " ")  

    IsUpCase = (Asc(Ch1) = Asc(UCase(Ch1)))
    Select Case Asc(Ch)
      Case Asc("Ä"): Res = Res & IIf(IsUpCase, "AE", "Ae")  
      Case Asc("Ö"): Res = Res & IIf(IsUpCase, "OE", "Oe")  
      Case Asc("Ü"): Res = Res & IIf(IsUpCase, "UE", "Ue")  
      Case Asc("ä"): Res = Res & "ae"  
      Case Asc("ö"): Res = Res & "oe"  
      Case Asc("ü"): Res = Res & "ue"  
      Case Asc("ß"): Res = Res & "ss"  
      Case Else: Res = Res & Ch
    End Select
  Next I
  Umlaut = Res
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 48026

Url: https://administrator.de/contentid/48026

Printed on: April 25, 2024 at 15:04 o'clock

1 Comment
Goto Top
Member: flash-gordon
flash-gordon Jan 05, 2007 at 14:05:54 (UTC)
Goto Top
Habs selbst gelöst:

 replace(replace(replace(replace(replace(replace(replace(DB_FIELD, 'ö', '&#x00F6;'), 'ä','&#x00E4;'),'ü','&#x00FC;'),'ß','&#x00DF;'),'Ö','&#x00D6;'),'Ä','&#x00C4;'),'Ü','&#x00DC;')

damit werden ö,ä,ü,Ö,Ä,Ü und ß ersetzt.
GermansolvedQuestionDatabasesDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments