Autor Thema: Fulltrim  (Gelesen 1400 mal)

Offline Hedwig14

  • Aktives Mitglied
  • ***
  • Beiträge: 221
Fulltrim
« am: 07.12.11 - 09:28:27 »
Hallo !
warum klappt mein Fulltrim-Script nicht ?

Feld im Dokument "MA_kundenbetreuendeOE" = Textfeld, Beispiel "142 00 01"
Wunschergebnis = "1420001"

Dim kbo As Variant
kbo = doc.MA_kundenbetreuendeOE(0)
doc.MA_ISP_OE = Fulltrim(kbo)

Kann mir jemand helfen ?

Offline ghostmw

  • Aktives Mitglied
  • ***
  • Beiträge: 201
  • Geschlecht: Männlich
    • BELOS - Raum+Ressourcenmanagement unter Lotus Notes
Re: Fulltrim
« Antwort #1 am: 07.12.11 - 09:36:36 »
Hi Hedwig14,

FullTrim entfernt doppelte, führende und abschließende Leerzeichen in Strings und noch einiges mehr in Arrays, das kannst du auch in der Hilfe nachlesen.
Zitat
Given an array, eliminates "empty" entries and eliminates duplicate, trailing and leading whitespace within entries; and given a string, eliminates duplicate, trailing and leading whitespace in the string.

Das was du machen möchtest, ist das komplette Entfernen von Leerzeichen.

Das kannst machen, indem du den String in ein Array verwandelst (mit Leerzeichen als Trenner).
Danach kommt der Fulltrim zum Einsatz, der entfernt auch leere Array-Einträge.
Erst danach wieder zurück in einen String wandeln , mit einen Leerstring ("") as Trenner.

Und fertig ... die Befehle kannst du dir aus der Hilfe holen.

Das ist nur ein Ansatz, wie man das machen kann, man könnte auch ein Ersetzen in Script benutzen um die Leerzeichen loszuwerden.

Grüße
Marco W.
« Letzte Änderung: 07.12.11 - 09:38:22 von ghostmw »
Grüße
Marco Weller
Lotus Domino / Lotus Notes seit 1996 (ab 4.5x)

Offline tower

  • Junior Mitglied
  • **
  • Beiträge: 95
  • Geschlecht: Männlich
    • Uwe Schräpler IT-Service
Re: Fulltrim
« Antwort #2 am: 07.12.11 - 09:52:19 »
Ganz einfach:

text = Replace(text, " ", "")


Offline Hedwig14

  • Aktives Mitglied
  • ***
  • Beiträge: 221
Re: Fulltrim
« Antwort #3 am: 07.12.11 - 10:02:04 »
Hallo !
viele Wege führen nach Rom !
Vielen Dank für die Idee mit dem Replace !


 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz