vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
String bereinigen 
Autor: vman
Datum: 08.12.04 11:50

Hallo zusammen,

ich muß aus einem Excelsheet heraus z. B. Fahrgestellnummern mit einer Access-Tabelle vergleichen, in der theoretisch die gleichen Fahrgestellnummern eingetragen sind, aber das Format der Daten in Excel unterscheidet sich vom Format der Daten in der Access-Tabelle.
In Excel sehen die Fahrgestellnummern so aus:
8 - 94902 - 0 - 23863170 - 4 \ 833.
In Access sehen die Fahrgestellnummern so aus:
8949020238631704 => was dem Standardformat entspricht.
Um die Daten jetzt abgleichen zu können, muß ich die Nummern, die so in Excel abgespeichert wurden, in das in Access gespeicherte Format bringen sprich die Prüfziffer nach dem Schrägstrich und den Schrägstrich selbst sowie die Bindestriche entfernen.
Ich muß beide Tabellen später mit SQL-Statements bearbeiten, um verschiedene Daten ganzheitlich anzeigen zu können; in Excel sind z. B. Fahrzeugtyp und in Access
z. B. Fertigungsdatum enthalten und um diese Daten mittels SQL auswerten und zusammenfügen zu können, muß ich die Daten aus Excel in Access überführen (was kein Problem darstellt), aber vorher eben in das Standardformat bringen.
Ich habe es bisher mit der replace-Methode in Verbindung mit der Left-Methode versucht und es hat auch geklappt, aber ich habe keine Idee, wie ich das sozusagen automatisieren kann, daß es mit einer ganzen Excelspalte funktioniert.

 
Dim variable As String
variable = "8 - 94902 - 0 - 23863170 - 4 \ 883"
variable = Left(variable, InStr(1, variable, "\", vbBinaryCompare))
variable = Replace(variable, "-", "", , , vbBinaryCompare)
variable = Replace(variable, "\", "", , , vbBinaryCompare)
variable = Replace(variable, " ", "", , , vbBinaryCompare)
variable = MsgBox("" & variable & "")

End Sub
 
So ist es ja recht einfach, aber ich kann nicht jeden Wert einzeln eingeben; wenn ihr eine Idee habt, nur her damit.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
String bereinigen1.110vman08.12.04 11:50
Re: String bereinigen606Prian081508.12.04 12:29
Re: String bereinigen602vman08.12.04 13:24
String bereinigen 2. Punkt672vman08.12.04 14:54
Re: String bereinigen 2. Punkt620tobias270908.12.04 14:59
Re: String bereinigen 2. Punkt540vman08.12.04 15:06
Re: String bereinigen 2. Punkt545vman08.12.04 15:07
Re: String bereinigen 2. Punkt629tobias270908.12.04 15:22
Re: String bereinigen 2. Punkt583vman09.12.04 08:25
Re: String bereinigen583vman09.12.04 10:37
Re: String bereinigen620tobias270909.12.04 11:25
Re: String bereinigen531vman09.12.04 11:55
Re: String bereinigen586vman13.12.04 14:19
Re: String bereinigen548vman13.12.04 14:26

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel