Trim

Har endnu ikke hørt om en function der kan dette..
Der er nok ikke andet at gøre end at gennemløbe strengen og fjerne alle mellemrum manuelt med f.eks. en for ekker while løkke.

er det så med en LEFT eller noget lign.??? Kan ikke lige gennemskue det!

dim v as variant
dim doc as notesdocument

...set doc
V= Evaluate(|@Replace(| & doc.Felt(0) & |; " "; ""), doc|)

Det ved jeg godt nok desværre ikke..

Kan man ikke gøre sådan her!
stmp1 = " "
tmp = Strleftback(Doc.AssignmentNumber(0), stmp1)
DOCASS = a + tmp + Strrightback(Doc.AssignmentNumber(0), stmp1)+a

VIL du ikke se hvad jeg har skrevet ?? :-)))

cdlicht>> jojo, sad bare lige selv og eksperimenterede - din er også "pænere", men i længden er det vel det samme?

Overhoved ikke - Strleftback returnerer kun hvad der findes til højre for søgestrengen!!
Mit forslag returnerer hele den oprindelige streng, men uden " ".

det virker ikke!!!  Error 4044: Invalid formula (@Replace(BBJ0001; " "; ""), doc)

det virker ikke når der IKKE er melemrum.... Det skulle det egentligt gerne. Sådan at jeg bar efår fjernet mellemrum HVIS det er der!!!

Ellers virker det sikkert fint nok!

det er vigtigt, at du skriver formlen præcis som jeg angav, altså med |'er og det hele, ellers virker det ikke...........

hmmm. det ovenfor er taget fra skærmbilledet på AS400.... Så skal jeg måske have en masse flyvpinger ind i strengen????

tmp = Evaluate(|@Replace(| & Doc.AssignmentNumber(0) & |; " "; ""), doc|)

Problemet med cdelichts formel er at der mangler " og et | er placeret forkert.
Desuden tror jeg cdelicht mener @ReplaceSubstring og ikke @Replace. @Replace virker kun på elementer i lister.

tmp = Evaluate(|@ReplaceSubstring("|  & Doc.AssignmentNumber(0) & |"; " "; "")|, Doc)
burde virke
//Jörg

kan ikke få det til at virke! får stadig en type mismatch. Doc.AssignmentNumber er en STRING!

hvad gør de der lodrette streger??

Det samme som ", men det kan man ikke bruge her, da " indgår i formelen. Et andet alternativ er at bruge { }

Hvad giver følgende?

dim formula$
formula$ = {@ReplaceSubstring("}  & Doc.AssignmentNumber(0) & {"; " "; "")}
print formula$
tmp = Evaluate( formula$, Doc)

prøv ellers dette:

dim formula$
formula$ = {@ReplaceSubstring(AssignmentNumber; " "; "")}
print formula$
tmp = Evaluate( formula$, Doc)

Så overlader du det helt til @Formula også at hente værdien ud af AssignmentNumber. tmp vil være array, og hvis Assignmentnumber er en liste vil tmp også være et array med flere værdier.

04/10/2003 06:37:47 PM  AMgr: Agent ('AS400 - Export to BPCS ALL' in 'ITF/test/ServicerMultiLon2.nsf') printing: @ReplaceSubstring("BBJ0001"; " "; "")
04/10/2003 06:37:47 PM  AMgr: Agent ('AS400 - Export to BPCS ALL' in 'ITF/test/ServicerMultiLon2.nsf') error message: Type mismatch

Det skal lige siges at lige denne string ikke indeholder " ", men det er der andre der gør!

Jamen hvad er tmp erklæret som? tmp skal være en Variant.

her er noget kode du har skrevet før:

tmp = Strleftback(Doc.AssignmentNumber(0), stmp1)
DOCASS = a + tmp + Strrightback(Doc.AssignmentNumber(0), stmp1)+a

Hvis du anvender din kode som nedenunder vil det give TypeMismatch, da Evaluate afleverer i dette tilfælde et array og ikke en enkel værdi. Du skal referere til værdien ved tmp(0) for at få fat i første værdi.

En anden god ting er at anvende
On Error Goto ErrorHandler
i starten af din rutine

og sidst i din kode:
ExitSub:
    exit sub
ErrorHandler:
    Print "Error " & ERR & " in line " & ERL & ": " & ERROR
    'Resume ExitSub 'Hvis du vil ud af routinen ved fejl
    Resume Next ' Hvis du vil prøve at fortsætte alligevel
End Sub

Så vil du i loggen kunne se precist i hvilken linie det går galt.

Tak for hjælpen ;-)