Avatar billede oliverdb Nybegynder
26. juni 2001 - 14:52 Der er 7 kommentarer og
1 løsning

Snask fra gammel database

Jeg sidder med data fra en database som via asp, skal udskrives i vbscript som så IGEN sender det til et exel ark.

desværre er der en masse tomme tegn + et linebreak. Dette linebreak ødelægger alting.

Her er den linie som det gør galt i + den næste:

            Response.write(\"xl.cells(\"& taeller&\",5).value =\"\" \"& trim(kunde3) &\" \"\" \")& vbCrLf
            Response.write(\"xl.cells(\"& taeller&\",6).value =\"\" \"& trim(kunde4) &\" \"\" \")& vbCrLf

Her er fejlen når det er parset til vbscript:
xl.cells(11,4).value =\" Magrethehåbsvej 68 \"
xl.cells(11,5).value =\" xl.cells(11,6).value =\"  \"

Jeg har prøvet med en regular expression som skal finde det felter med blanktegn + et linebreak. Men det funker ikke helt:

set breakRegExp = new RegExp
            breakRegExp.Global = false
            breakRegExp.pattern =\" vbCrLf
            Set matchkunde3 = breakRegExp.Execute(kunde3)
            for each thing in matchkunde3
            kunde3 =\"\"
           
            next

Hvad gør jeg?.. Jeg skal simpelthen have fjernet det lort fra feltet kunde3

Avatar billede sone Nybegynder
26. juni 2001 - 14:55 #1
Replace(tekst, vbcrlf, \"\")

fjerner alle linebreaks fra variablen tekst:

Response.write(\"xl.cells(\"& taeller&\",5).value =\"\" \"& replace(trim(kunde3), vbcrlf, \"\") &\" \"\" \")& vbCrLf
Avatar billede oliverdb Nybegynder
26. juni 2001 - 15:01 #2
original koden er skrevet i vbscript OG asp i en stor pærevælling. Men har den fordel at de virker, men dermed ulempen at den trækker kegler.

Men her er outputter ved den virkende version og dermed også dataen i felterne

        xl.cells(11,3).value =\"D ø g n i n s t i t u t i o n e n  H ø r h u s \"
            xl.cells(11,4).value =\"Magrethehåbsvej 68\"
            xl.cells(11,5).value =\"                                                            \"
            xl.cells(11,6).value =\"\"
            xl.cells(11,7).value =\"4 0 0 0 \"
            xl.cells(11,8).value =\"R o s k i l d e \"
Avatar billede oliverdb Nybegynder
26. juni 2001 - 15:01 #3
11,5 har en masse ingenting... men altså kun blanktegn
Avatar billede oliverdb Nybegynder
26. juni 2001 - 15:28 #4
det her virker. Men det fjerner alt, også de x,5 felter hvor der faktisk ER noget data i og ikke whitespace stuff.



    set breakRegExp = new RegExp
            breakRegExp.Global = false
            breakRegExp.pattern =\" *$\"
            Set matchkunde3 = breakRegExp.Execute(kunde3)
            for each thing in matchkunde3
            kunde3 =\"\"
           
            next
Avatar billede slash Nybegynder
27. juni 2001 - 11:03 #5
Hvis det eneste du vil, er at hive data fra databasen  over i excel, så kunne du, hvis du anvender sql-server 7.0o/2000 bruge DTS og dennes Export data funktionalitet!
Avatar billede oliverdb Nybegynder
27. juni 2001 - 15:23 #6
Den kender jeg ikke. Hvor kunne jeg f.eks finde fino omkring dette?

Avatar billede slash Nybegynder
27. juni 2001 - 15:39 #7
Avatar billede oliverdb Nybegynder
01. august 2001 - 17:17 #8
fik i øverigt løst problemet.... vbscript sutter. Så jeg kaldte exel applikationen fra ASP istedet.
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