Søg
Avatar billede hemberg Forsker
29. juli 2005 - 14:51 Der er 5 kommentarer og
1 løsning

Hvordan bruges en tekstfil som DB

Hej igen allesammen,
Jeg er stødt på endnu et problem!

Har lige fået smidt en text-fil i hovedet som jeg skal lave en søge funktion i. Nemt og bekvemt ik' ???  NOT

Linierne ser sådan ud:

To bredbåndsantenner .......................... OZ8NJ 703 12 2004
To Radioer på FM .............................. OZ8NJ 703 12 2004

OSV.

Forklaring:

Artikeloverskrift: To bredbåndsantenner
Skrevet af: OZ8NJ (Radioamatør hvis nogen undre sig!)
Side: 703
Udagve: 12
Årgang: 2004.

Jeg kan godt få tekst filen vist. Men for at kunne søge i den og kunne vise et resultart så må hver linie skulle laves om til et Recordset i form af array's (Eller skal det først ske efter søgningen ??. (Det er ihvertfald den eneste løsning jeg kan finde Og så til spørgsmålet. Hvordan laver jeg array's når der ikke er nogen engentlige seperatortegn? Er her nogen der kan nogle trix ??
Avatar billede busschou Praktikant
29. juli 2005 - 14:56 #1
Du har da mellemrum som seperator på de sidste informationer, problemet er overkriften
Hvis ikke der er noget genkendeligt som serpererer så kan jeg ikke se at det er mulig at lave noget fornuftigt desværre :O/
Avatar billede hemberg Forsker
29. juli 2005 - 15:08 #2
Skal seperatoren være den samme. Havde selv forestillet mig at man kunne få maskineriet til at læse indtil den stødte på et punktum og derefter et mellemrum. Eller kan det lade sig gøre at bede om en søgning på FX "TO" og så bare bede den om at skrive linierne der indeholder søgestrengen TO.?
Avatar billede ksoren Nybegynder
29. juli 2005 - 15:17 #3
Du kan prøve et regulært udtryk. Denne forventer minumum 5 punktumer efter overskrift

str = "To bredbåndsantenner .......................... OZ8NJ 703 12 2004"

Set re = New RegExp
re.Global = True
re.Pattern = "^(.*?)\s*\.{5,}\s*(.*?)\s+(.*?)\s+(.*?)\s+(.*)"

Set m = re.Execute(str)

If m.Count Then
    overskrift = m(0).SubMatches(0)
    skrevetaf = m(0).SubMatches(1)
    side = m(0).SubMatches(2)
    udgave = m(0).SubMatches(3)
    aargang = m(0).SubMatches(4)

    Response.Write overskrift & "<br>"
    Response.Write skrevetaf & "<br>"
    Response.Write side & "<br>"
    Response.Write udgave & "<br>"
    Response.Write aargang

Else
    ' forkert pattern
End If
Avatar billede hemberg Forsker
29. juli 2005 - 15:36 #4
JUHUUUU.Hurra. Det virker sku. Virkerdet ved alt over 5 punktummer ? Og i såfald er det så bare at lave en streng for hver linie hvis der skal søges i skidtet eller???? Der er over 2000 linier.
Avatar billede hemberg Forsker
03. august 2005 - 15:25 #5
Smid lige ef svar ksoren
Avatar billede hemberg Forsker
22. august 2005 - 11:37 #6
Jeg lukker for nu.
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:07 Webshop mangler at gøre så lagerbeholdning reduceres Af Strawberry i Webdesign
I går 14:41 Afinstallere Office 2024 Af mort1 i Office & Kontorpakker
16/0714:01 VBS Af bsn i VBscript
16/0712:06 Messinglak Af ErikHg i Fri debat
14/0713:08 overføre internet til gæstehus Af Malm i Andet hardware
White papers
Flere white papers »