07. juni 2002 - 08:17Der 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.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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
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
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, ",")
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.