Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Ctan am 21.07.04 - 13:48:05
-
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
-
Instr (DEINSTRING, Chr$ (10)) und Instr (DEINSTRING, Chr$ (13)) müssen 0 ergeben, sonst ist 'ne Zeilenschaltung drin.
HTH,
Bernhard
-
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).
-
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
-
Danke - Ihr habt mir eine Menge Zeit und Sucherei gespart !
Gruß
Christian