---

Lad os antage at jeg har denne String:
"hsghsgdfksdgsd Dette skal bruges flkgdfgfd"

Den tekst der står før og efter "Dette skal bruges" kender jeg ikke.
Hvordan kan jeg formattere den så der kun er "Dette skal bruges" tilbage?

--
Mvh.... Tim Sørensen
http://www.dondata.dk/

---

Tim Sørensen skrev:
> Lad os antage at jeg har denne String:
> "hsghsgdfksdgsd Dette skal bruges flkgdfgfd"
>
> Den tekst der står før og efter "Dette skal bruges" kender jeg ikke.
> Hvordan kan jeg formattere den så der kun er "Dette skal bruges"
tilbage?

Jeg forstår ikke helt spørgsmålet.
Hvis du allerede kender hele strengen "Dette skal bruges", hvorfor så
ikke blot bruge denne streng og glemme alt om "hsghsgdfksdgsd Dette skal
bruges flkgdfgfd"?

Hvis du vil søge efter noget kendt, kan du søge med InStr og InStrRev.
Derefter kan du bruge Left, Mid og Right til at pille det ud som ønsker
at bruge/ikke bruge.

-------
Tomas

---

"Tomas Christiansen" <toc-nospam-01@blikroer.dk> wrote
> Jeg forstår ikke helt spørgsmålet.
> Hvis du allerede kender hele strengen "Dette skal bruges", hvorfor så
> ikke blot bruge denne streng og glemme alt om "hsghsgdfksdgsd Dette skal
> bruges flkgdfgfd"?

Nemlig.
Men problemet er at "Dette skal bruges" ligesågodt kan være "Dette skal også
bruges"

Det som jeg gerne vil,er at flerne alt det der står uden om "Dette" og
"Bruges"

--
Mvh.... Tim Sørensen
http://www.dondata.dk/

---

Tim Sørensen skrev:
> Det som jeg gerne vil,er at flerne alt det der står uden om "Dette"
og
> "Bruges"

Dvs. noget i retning af:

Dim sTekstInd As String, sTekstUd As String
Dim sStart As String, lStart As Long
Dim sSlut As String, lSlut As Long
sTekstInd = "deifiu Dette euh bruges ipj"
sStart = "dette"
sSlut = "bruges"
lStart = InStr(1, sTekstInd, sStart, vbTextCompare)
lSlut = InStrRev(sTekstInd, sSlut, -1, vbTextCompare)
sTekstUd = Mid(sTekstInd, lStart, lSlut - lStart + Len(sSlut))
Debug.Print ">" & sTekstUd & "<"

-------
Tomas

---

"Tomas Christiansen" <toc-nospam-01@blikroer.dk> wrote
> Dvs. noget i retning af:
>
> Dim sTekstInd As String, sTekstUd As String
> Dim sStart As String, lStart As Long
> Dim sSlut As String, lSlut As Long
> sTekstInd = "deifiu Dette euh bruges ipj"
> sStart = "dette"
> sSlut = "bruges"
> lStart = InStr(1, sTekstInd, sStart, vbTextCompare)
> lSlut = InStrRev(sTekstInd, sSlut, -1, vbTextCompare)
> sTekstUd = Mid(sTekstInd, lStart, lSlut - lStart + Len(sSlut))
> Debug.Print ">" & sTekstUd & "<"

Ja lige præcis!
Genial kode

--
Mvh.... Tim Sørensen
http://www.dondata.dk/

---

Hvis det skulle blive mere kompliceret, ville det være smart at bruge
regular expression i stedet .. men selvf. så skulle der jo helst være
lidt systematik over det

---

"Birk" <-REMOVE-birk@rock-zone.dk> wrote
> Hvis det skulle blive mere kompliceret, ville det være smart at bruge
> regular expression i stedet .. men selvf. så skulle der jo helst være
> lidt systematik over det

Jeg ved godt at regular expressions er meget
hurtige, men jeg kan sgu ikke finde ud af at bruge dem :(

Hvis du kunne lave et lille eksempel ville det være cool

--
Mvh.... Tim Sørensen
56º 24'209 N / 10º 55'631 E

---

De er skam ikke hurtigere, eller jo det er de måske, men jeg testede dem
mod en hjemmelavet "instr" kode, og instr koden var hurtigere.

Jeg brugte den her side, til at læse lidt om regex:
http://www.cs.utah.edu/dept/old/texinfo/regex/regex_toc.html

Og så studerede jeg Psychostats (et stats program til Counter-Strike),
som er skrevet i Perl, så det var lidt svært at finde ud af i starten,
da jeg aldrig har brugt perl. Men så prøvede jeg mig ellers bare frem
der efter, hvis du vælger at studere Psychostats, burde du også få
fingerne i en Counter-Strike log fil, prøv at spørg på et counter-strike
forum, om der ikke er nogen der vil sende dig en Server Log.


Det tog mig en del tid, da jeg som sagt ikke kendte til Perl, men hvis
du kan finde en source code i VB der arbejder med regex, ville det
hjælpe meget.


- Birk

---

"Birk" <-REMOVE-birk@rock-zone.dk> wrote
> Jeg brugte den her side, til at læse lidt om regex:
> http://www.cs.utah.edu/dept/old/texinfo/regex/regex_toc.html
> Det tog mig en del tid, da jeg som sagt ikke kendte til Perl, men hvis

Det gør jeg slet heller ikke

> du kan finde en source code i VB der arbejder med regex, ville det
> hjælpe meget.

http://makeashorterlink.com/?U32162983

--
Mvh.... Tim Sørensen
56º 24'209 N / 10º 55'631 E