Avatar billede rashid Praktikant
10. marts 2003 - 23:00 Der er 9 kommentarer og
1 løsning

konvertering af data fra en tekstfil til database

Jeg har et spøgrsmål som jeg håber der er nogen der kan hjælpe med. Jeg har en tekstfil der består af dels uforståelige tegn og dels af nogle navne og adresser. Jeg har brug for et program der kan læse filen og lægge den over i en csv-fil. Det der måske kan hjælpe er at der er nogle stopkoder der er xx eller xxx.

Jeg ved det ikke er svært, men er ikke stærk til VB.
Avatar billede mortrr Praktikant
10. marts 2003 - 23:11 #1
Den "tekstfil" kan være næsten hvad som helst.
Har du lidt mere info, eller kan du lægge den til download et sted?
Avatar billede 2rb1 Nybegynder
10. marts 2003 - 23:19 #2
det nemmeste er nok at skrive direkte i host-script eller vbs. Opret en fil som hedder conv.vbs og find ud af præcist, hvornår stopkoder fremtræder og hvad de inddeler.

Dernæst skal jeg nok give dig koden som kan formatere til fx CSV-format.
Avatar billede rashid Praktikant
10. marts 2003 - 23:28 #3
kunne man ikke lave noget med et program der læser indtil enten xx eller xxx og derefter smider det ned i evt en database ? og fortsætter til EOF
Avatar billede 2rb1 Nybegynder
10. marts 2003 - 23:30 #4
Her er et ex:

fil = "d:\salonerdk.txt"
fil2 = "d:\saloner.txt"

dim filesys, demofile, txtstream
set filesys = CreateObject ("Scripting.FileSystemObject")
Set text = filesys.CreateTextFile(fil2)

set readfile = filesys.OpenTextFile(fil, 1, false)
c=0
do while readfile.AtEndOfLine <> true
    c=c+1
    contents = readfile.ReadLine

    if trim(contents) <> "" then
            If instr(trim(contents),"  tlf ") = 0 then
                towrite = towrite &  """" & trim(contents) & ""","       
            else
                tmp = split(trim(contents),"  tlf ")
                towrite = towrite &  """" & tmp(0) & """,""tlf " & tmp(1) & ""","
            end if
    else
           
            if towrite <> "" then text.write towrite & vbcrlf   
            towrite = ""
    end if
loop
readfile.close
msgbox "Done"
Avatar billede 2rb1 Nybegynder
10. marts 2003 - 23:32 #5
prøv at give mig lidt af filen, så jeg kan se sammenhænget af dataformattet.
Avatar billede martin_moth Mester
12. marts 2003 - 09:58 #6
rashid : Det kan sagtens lade sig gøre - men er umuligt at svare på så længe vi ikke kan se hvad textfilen indeholder... :o)
Avatar billede rashid Praktikant
13. marts 2003 - 23:42 #7
I kan sende jeres mailadresse til xess99@hotmail.com, så kan I se filen
Avatar billede martin_moth Mester
14. marts 2003 - 10:59 #8
Hvad med bare at poste en bid af den her? Vi behøver jo ikk ehele filen, vi skal bare kunne se strukturen
Avatar billede rashid Praktikant
12. juni 2003 - 13:04 #9
Jeg har accepteret dit svar, selvom det ikke var løsningen.
Avatar billede martin_moth Mester
12. juni 2003 - 13:29 #10
Alt det her var der vist ingen der blev spor klogere af...

Held og lykke med projektet - hvad det så end gå rud på ;o)
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