title image


Smiley Re: A97:Import von DBase IV-Dateien, Probleme mit Buchstaben
Hallo Walter,1) Versuche die DBase-Datei als Fox-Pro zu importieren.Foxpro verwendet den ANSI-Zeichensatz.Wenn das nichts nützt:2) Funktionen von Wolfgang Kogler:Function convert_umlaute(pvartext As String) As String 'convertiert umlaute Dim neu As String, i, n, z, suchz, ersatzsuchz = Chr(91) & Chr(92) & Chr(93) & Chr(123) & Chr(124) & Chr(125) & Chr(126)ersatz = "ÄÖÜäöüß"For i = 1 To Len(pvartext) Z = Mid(pvartext, i, 1) N = InStr(1, suchz, Z) If N Then Z = Mid(ersatz, N, 1) neu = neu & ZNext iconvert_umlaute = neuEnd Function Sub Umlaute_umsetzen(strTabellen As String) 'konvertiert umlaute in Tabellen (Tabelle,Tabelle...)Dim db As DATABASE, rs As Recordset, i, strTabNam As StringSet db = DBEngine(0)(0)Do Until strTabellen = "" i = InStr(1, strTabellen, ",") If i Then strTabNam = Left(strTabellen, i - 1): strTabellen = Mid(strTabellen, i + 1) Else strTabNam = strTabellen: strTabellen = "" End If Set rs = db.OpenRecordset(strTabNam) Do Until rs.EOF rs.Edit For i = 0 To rs.Fields.count - 1 If rs(i).Type = dbText Or rs(i).Type = dbMemo Then rs(i) = convert_umlaute(Nz(rs(i))) End If Next rs.Update rs.MoveNext Loop rs.CloseLoopEnd SubAufruf Umlaute_umsetzen("Tabellenname") Kopiere über die Zwischenablage zuerst nach Word und dann nochmals über die Zwa nach Access.Walter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: