12. september 2004 - 12:26Der 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.
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!!
Synes godt om
Slettet bruger
12. september 2004 - 12:47#4
Så har jeg ikke flere forslag desværre, måske en anden har.
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
Synes godt om
Slettet bruger
12. september 2004 - 21:36#6
Besværligt og underligt men godt du fik det til at virke :-)
Synes godt om
Ny brugerNybegynder
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.