Text unterteilen

D

Dusty00

Mitglied
Hallo,

Ich übergebe mehrere Werte an eine Acess Datenbank. Ich hätte aber gerne das, wenn die Eingabe länger als 12 Zeichen ist, der fortlaufende Text in die darunter liegende Spalte geschrieben wird.

zB Das sind 12 Z
-----eichen

Ich habe mich schon ein wenig mit Mid,Left,Right usw. gespielt habs aber leider noch nicht geschafft!

Ich hoffe Ihr könnt mir helfen!

lg

dusty
 
Geht im Prinzip ganz einfach mit Left() und Right():
Code: 
Do
 vZeichen = Left(vZeilen, 12)
 'Den Inhalt der Variable vZeichen schreibst du dann in deine Datenbank

 vZeilen = Right(vZeilen, Len(vZeilen) - 12)
Loop Until vZeilen = ""
Ich hab den Code jetzt nicht getestet, kann sein, dass ein Fehler kommt, es würde dann noch eine If-Abfrage reingehören.


Der Doc!
 
Irgendwie funktioniert das bei mir nicht! Was ist eigentlich unter Vzeilen gemeint?

Bekomme Fehlermeldung : Ungültiger Prozeduraufruf oder ungülitiges Argument

Code: 
vzeilen = Right(vzeilen, Len(vzeilen) - 12) '(vzeilen=leer)
 
Zuletzt bearbeitet:
Hätte es kommentieren sollen, vZeilen ist die Variable, in der dein zu teilender Text steht (du kannst den Namen natürlich anpassen).


Der Doc!
 
Gibt doch noch ein Prob. und zwar wenn der text nicht genau 24 Zeichen ist, dann tritt der oben genannte Fehler nochmals auf, aber ansonsten funktionierts.
 
Zuletzt bearbeitet:
Wie gesagt, da gehört noch eine If-Abfrage rein (hatte vorher keine Zeit), der Code würde gesamt so lauten:
Code: 
Do
 vZeichen = Left(vZeilen, 12)
 'Den Inhalt der Variable vZeichen schreibst du dann in deine Datenbank
 If Len(vZeilen) > 12 then
  vZeilen = Right(vZeilen, Len(vZeilen) - 12)
 Else:
  vZeilen = ""
 End If
Loop Until vZeilen = ""


Der Doc!
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück