Avatar billede mik28 Seniormester
07. juni 2002 - 08:17 Der er 11 kommentarer og
1 løsning

"substring"

Hvordan finder jeg positionen af den X'ende forekomst af "," i en streng/tekstfil. Jeg skal bruge det til at løbe en fil igennem fra den ene ende til den anden. Den indeholder en masse data som skal i en database. Som du nok har gættet så er der tale om en kommasepareret fil (et udtræk fra GroupWise). Mit behov er i første omgang at finde ud af at lave en løkke som deler filen op i de rigtige dele og som stopper når filen er slut.

Hvad svarer til indexOf i ASP?
Avatar billede mik28 Seniormester
07. juni 2002 - 08:33 #1
strukturen ser således ud

"afdeling","fornavn","efternavn","telefon"
"afdeling","fornavn","efternavn","telefon"

så jeg skal i princippet finde den 8'ende forkomst af ", tage en mid af den. Derefter skal jeg isolerer det som står imellem de første 2 " , ligge det i en variable, finde det som ligger imellem de næste 2 " o.s.v
Avatar billede soes Nybegynder
07. juni 2002 - 08:59 #2
hvilken database er det som det drejser sig om?

/Søren Søndergård
Avatar billede mik28 Seniormester
07. juni 2002 - 09:01 #3
det er Oracle
Avatar billede mik28 Seniormester
07. juni 2002 - 09:02 #4
Jeg kan godt finde ud af at få lagt data i databasen når bare jeg har fundet ud af at dele strengen/filen
Avatar billede mik28 Seniormester
07. juni 2002 - 09:03 #5
:-)
Avatar billede mik28 Seniormester
07. juni 2002 - 09:05 #6
Der skulle jo gerne være en chance for at det er de rigtige data som havner de rigtige steder ;-)
Avatar billede z42cool Nybegynder
07. juni 2002 - 09:16 #7
Nedenstående løser det i VBScript, selvom det naturligvis kunne være løst meget mere elegant i JScript :-)
<%
S = """afdeling"",""fornavn"",""efternavn"",""telefon"""

'Generer array af strengen delt ved ,
A = Split(S, ",")

For I = 0 To UBound(A)
    'Slet ""
    A(I) = Mid(A(I), 2, Len(A(I))-2)
    Response.write(A(I))
Next

%>
Avatar billede mik28 Seniormester
07. juni 2002 - 09:24 #8
Der står jo ikke

"""afdeling"",""fornavn"",""efternavn"",""telefon"""

nogen steder. Der er bare sådan data er struktureret :-)
Avatar billede mik28 Seniormester
07. juni 2002 - 11:23 #9
Set fso = CreateObject("Scripting.FileSystemObject")
    Set stream = fso.OpenTextFile(Server.Mappath("filer/aaa.txt"), 1)
    If not stream.AtEndOfStream Then
        content = stream.ReadAll
    End if
    set stream = nothing
    set fso = nothing
    ' Response.write(content)
   
    ' test  = mid(content,1,6)
    ' test1 = indexOf("","", 3)
   
    ' response.write(test)

   
    'Generer array af strengen delt ved ,
    A = Split(content, ",")


content er så filen med den bestrevet struktur
Avatar billede mik28 Seniormester
07. juni 2002 - 11:27 #10
Jeg skal det første sæt, også på snedig vis få det delt op i variable jeg kan bruge når jeg skal ligge i i DB'en
Avatar billede mik28 Seniormester
07. juni 2002 - 11:31 #11
kan man læse filen linie for linie indtil der ikke er flere linier.
Avatar billede mik28 Seniormester
06. marts 2003 - 19:07 #12
oprydning :-)
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