Eingabevalidierung auf Zeilenvorschub

[Ctan]

Gesucht und noch nicht gefunden....

Wie kann ich per script in einem String-Feld abfragen, ob eine Zeilenschaltung drin ist...(Eingabevalidierung im Querysave)?

Da ich die DB in eine Textdatei exportieren will, sind unverhofft auftretende Zeilenschaltungen nicht gerade hilfreich :-)

Bisher habe ich mit dem Vergleichsoperator "like" rumexperimentiert, aber irgendwie will der kein CHAR(XY) akzeptieren....

Danke für Eure Zeit

Christian

[koehlerbv]

Instr (DEINSTRING, Chr$ (10)) und Instr (DEINSTRING, Chr$ (13)) müssen 0 ergeben, sonst ist 'ne Zeilenschaltung drin.

HTH,
Bernhard

[TMC]

Habe das letztens erst beim Excel-Export gebraucht:

While Instr ( strColValue, Chr(13) ) > 0
   strColValue = Left$(strColValue, Instr ( strColValue,Chr(13) ) - 1) & "" & Right$(strColValue, Len(strColValue) - Instr ( strColValue, Chr(13) ))
Wend

Statt "" setzt Du zwischen die Doppel-Hochkommas dann Dein gewünschtes Trennzeichen.

Du musst dann das ganze noch um Chr(10) erweitern (war bei meiner Vorgabe nicht relevant - bei Dir aber wohl schon).

[TMC]

Hier noch eine Function (schon wieder ganz vergessen), die verwenden wir in der Klassen-DB: http://www.atnotes.de/index.php?board=7;action=display;threadid=16422


Public Function AuxRemoveLinebrakes(strSource As String, strSeparator As String) As String
   'Entfernt Zeilenumbrüche aus String
   Dim strReplacer As String      
   Dim strBreaks(1) As String
   strBreaks(0) = Chr(10)
   strBreaks(1) = Chr(13)
   Forall br In strBreaks
      While Instr ( strSource, br ) > 0
         strSource = Left$(strSource, Instr ( strSource,br ) - 1) & strSeparator  & Right$(strSource, Len(strSource) - Instr ( strSource, br ))
      Wend
      AuxRemoveLinebrakes = strSource
   End Forall
End Function

[Ctan]

Danke - Ihr habt mir eine Menge Zeit und Sucherei gespart !

Gruß

Christian