AndreasNDS
Grünschnabel
Hallo,
in Excel kann ich mit einem VB-Script die Werte aus einer Spalte in ein Muster umwandeln.
z.B. Wert "056A. 4bc2-1" in "dddc. dccd-d".
d = Zahl
c = Buchstabe
Leer- und Sonderzeichen werden "normal" angezeigt.
Jetzt die Frage, ist das auch mit einem SQL Script auf einer DB2 möglich? Wenn ja, wie lautet die SQL?
Falls es hilft, hier der VB-Code aus meiner Excel-Datei:
Function MeinMuster(ByVal Wert As String) As String
Dim i As Integer, strchar As String
MeinMuster = Wert
For i = 1 To Len(Wert)
strchar = Mid(Wert, i, 1)
If strchar Like "#" Then
Mid(MeinMuster, i, 1) = "d"
ElseIf strchar Like "[a-zäöüßA-ZÄÖÜ]" Then
Mid(MeinMuster, i, 1) = "c"
End If
Next
End Function
In Access würde es mit dem VB-Code dann so lauten:
SELECT Wert, MeinMuster(Wert) AS Muster FROM Tabelle1
Danke für die Hilfe
in Excel kann ich mit einem VB-Script die Werte aus einer Spalte in ein Muster umwandeln.
z.B. Wert "056A. 4bc2-1" in "dddc. dccd-d".
d = Zahl
c = Buchstabe
Leer- und Sonderzeichen werden "normal" angezeigt.
Jetzt die Frage, ist das auch mit einem SQL Script auf einer DB2 möglich? Wenn ja, wie lautet die SQL?
Falls es hilft, hier der VB-Code aus meiner Excel-Datei:
Function MeinMuster(ByVal Wert As String) As String
Dim i As Integer, strchar As String
MeinMuster = Wert
For i = 1 To Len(Wert)
strchar = Mid(Wert, i, 1)
If strchar Like "#" Then
Mid(MeinMuster, i, 1) = "d"
ElseIf strchar Like "[a-zäöüßA-ZÄÖÜ]" Then
Mid(MeinMuster, i, 1) = "c"
End If
Next
End Function
In Access würde es mit dem VB-Code dann so lauten:
SELECT Wert, MeinMuster(Wert) AS Muster FROM Tabelle1
Danke für die Hilfe