Avatar billede michaelfp Nybegynder
12. september 2004 - 12:26 Der er 5 kommentarer og
1 løsning

formatering af notatfelt (access)

Hej eksperter,

Jeg overføre et notatfelt til ms.word, fra min asp side.

På aspsiden står f.eks:
--------------------------------------------------------
Kære xyz,

tak for din henvendelse,som....
o.s.v
--------------------------------------------------------
I word er linieskift fjernet, således tak for, står lige efter Kære xyz.

Hvordan undgår jeg det?
Jeg har prøvet replace(notatfelt, VbCrlf,"<Br<") men det gør ingen forskel.
Avatar billede Slettet bruger
12. september 2004 - 12:28 #1
replace(notatfelt, VbCrlf,"<Br>")
Avatar billede Slettet bruger
12. september 2004 - 12:28 #2
Ellers prøv
replace(notatfelt, VbCrlf,chr(10)+chr(13))
Avatar billede michaelfp Nybegynder
12. september 2004 - 12:45 #3
Hej Bertie,

ingen af de nævnte replace forslag hjælper.
Det er mærkeligt, for hvis jeg skriver replace(notatfelt,vbcrlf,"--") så
sættes det rigtig ind, de steder der ike laves et linieskift!!
Avatar billede Slettet bruger
12. september 2004 - 12:47 #4
Så har jeg ikke flere forslag desværre, måske en anden har.
Avatar billede michaelfp Nybegynder
12. september 2004 - 21:30 #5
Det var en hård nød at knække!
Af uforklarlige årsager, ignorer Ms.Word en VbCrLf og som det fremgår af forgående kommentarer, virker replace ikke!

Jeg har nu bygget følgende validering ind i scriptet, og det den gør er, at hvis notatfeltet indeholder min. én VbCrLf så skrives den del af notatfeltet, som står før VbCrLf samt Chr(10)+Chr(13) o.s.v indtil gennemløbet har været gennem hele notatfeltet.

    Dim TmpStr,NP
    If (InStr(Notalfelt,VbCrLf) <> 0) Then
        NP = 1
        TmpStr = ""
        Do While (NP <= Len(Notatfelt))
          If (Mid(Notatfelt,NP,2) = VbCrLf) Then
            TmpStr = TmpStr & Chr(10)+Chr(13)
            MyFile.WriteLine "\par " & TmpStr   
            TmpStr = ""     
            NP = Np+2
          Else
            TmpStr = TmpStr & Mid(Notatfelt,NP,1)
            Np = Np+1
          End if
        Loop
        MyFile.WriteLine "\par " & TmpStr
    Else
        Myfile.WriteLine "\par " & Notatfelt
    End if
Avatar billede Slettet bruger
12. september 2004 - 21:36 #6
Besværligt og underligt men godt du fik det til at virke :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester