15. april 2002 - 23:41Der er
15 kommentarer og 1 løsning
Problem med at læse dele af en linje.
Hej eksperter.
Jeg har denne linje til at stå i en tekstfil: "Navn<xxx><yyy><zzz>" killed "Navn2<xxx2><yyy2><zzz2>" with "Våben"
Hvordan får jeg delt den linje op i disse variabler? Navn =...... xxx =...... yyy =...... Navn2 =..... xxx2 =..... yyy2 =..... zzz2 =..... Våben =.....
Bemærk: alle variablerne skal kunne være forskellige længder.
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.
<% dinStr = """plexx<45><46><47>"" killed ""eagleeye<10><11><12><"" with ""paintgun"""
indexStart = 2 'Index til første " indexSlut = inStr(1,dinStr,"<") 'index til første < Navn = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finder Navn indexStart = indexSlut+1 'Sætter start til første char efter første < indexSlut = inStr(indexStart,dinStr,">") ' finder første > xxx = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finder XXX indexStart = indexSlut+2 'Sætter start til første char efter anden < indexSlut = inStr(indexStart,dinStr,">") ' finder anden > yyy = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finder YYY indexStart = indexSlut+2 'Sætter start til første char efter 3. < indexSlut = inStr(indexStart,dinStr,">") ' finder 3. > zzz = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finde 'ZZZ indexStart = inStr(indexSlut+3,dinStr,"""") 'Finde " før Navn2 indexStart = indexStart + 1 'sætter start til første char i Navn2 indexSlut = inStr(indexStart,dinStr,"<") 'Finder slut på navn2 Navn2 = Mid(dinStr,indexStart,indexSlut-indexStart) 'kopier Navn2 indexStart = indexSlut+1 'Finder start på xxx2 indexSlut = inStr(indexStart,dinStr,">") 'finde slut på xxx2 xxx2 = Mid(dinStr,indexStart,indexSlut-indexStart) 'kopier xxx2 indexStart = indexSlut+2 'Finder start på yyy2 indexSlut = inStr(indexStart,dinStr,">") 'finde slut på yyy2 yyy2 = Mid(dinStr,indexStart,indexSlut-indexStart) 'kopier yyy2 indexStart = indexSlut+2 'Finder start på zzz2 indexSlut = inStr(indexStart,dinStr,">") 'finde slut på zzz2 zzz2 = Mid(dinStr,indexStart,indexSlut-indexStart) 'kopier zzz2 indexStart = inStr(indexSlut+3,dinStr,"""") 'finder start på vaaben indexStart = indexStart + 1 'sætter start til først char i vaaben vaaben = Mid(dinStr,indexStart,len(dinStr)-indexStart) 'kpoier vaaben
<% dinStr = """plexx<123""45><46><47>"" killed ""eagleeye<10><11><1NOGET ANDET>"" with ""paintgun"""
indexStart = 2 'Index til første " indexSlut = inStr(1,dinStr,"<") 'index til første < Navn = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finder Navn indexStart = indexSlut+1 'Sætter start til første char efter første < indexSlut = inStr(indexStart,dinStr,">") ' finder første > xxx = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finder XXX indexStart = indexSlut+2 'Sætter start til første char efter anden < indexSlut = inStr(indexStart,dinStr,">") ' finder anden > yyy = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finder YYY indexStart = indexSlut+2 'Sætter start til første char efter 3. < indexSlut = inStr(indexStart,dinStr,">") ' finder 3. > zzz = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finde 'ZZZ indexStart = inStr(indexSlut,dinStr,""" ") + 2 'Sætter start til første char efter " . i action indexSlut = inStr(indexStart,dinStr," """) ' finder slut på action " action = Mid(dinStr,indexStart,indexSlut-indexStart) 'Finde 'ZZZ
indexStart = inStr(indexSlut,dinStr,"""") 'Finde " før Navn2 indexStart = indexStart + 1 'sætter start til første char i Navn2 indexSlut = inStr(indexStart,dinStr,"<") 'Finder slut på navn2 Navn2 = Mid(dinStr,indexStart,indexSlut-indexStart) 'kopier Navn2 indexStart = indexSlut+1 'Finder start på xxx2 indexSlut = inStr(indexStart,dinStr,">") 'finde slut på xxx2 xxx2 = Mid(dinStr,indexStart,indexSlut-indexStart) 'kopier xxx2 indexStart = indexSlut+2 'Finder start på yyy2 indexSlut = inStr(indexStart,dinStr,">") 'finde slut på yyy2 yyy2 = Mid(dinStr,indexStart,indexSlut-indexStart) 'kopier yyy2 indexStart = indexSlut+2 'Finder start på zzz2 indexSlut = inStr(indexStart,dinStr,">") 'finde slut på zzz2 zzz2 = Mid(dinStr,indexStart,indexSlut-indexStart) 'kopier zzz2 indexStart = inStr(indexSlut+3,dinStr,"""") 'finder start på vaaben indexStart = indexStart + 1 'sætter start til først char i vaaben vaaben = Mid(dinStr,indexStart,len(dinStr)-indexStart) 'kpoier vaaben
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.