---

Hej,

Er der ikke en venlig sjæl der kan hjælpe...?

Jeg vil gerne åbne en tekst fil, søge i den efter noget af en streng f.eks.
1234, når jeg har fundet stedet i teksten hvor den står vil jeg gerne
kopiere strengen plus 4 ekstra karaterer (f.eks. søg efter 1234 og kopier
12345678) så jeg har det som en variabel

Hvordan hulen gør jeg det nemmest?

Anders

---

"Anders Jacobsen" <NOSPAMaj@mailme.dk> wrote:

>Jeg vil gerne åbne en tekst fil, søge i den efter noget af en streng f.eks.
>1234, når jeg har fundet stedet i teksten hvor den står vil jeg gerne
>kopiere strengen plus 4 ekstra karaterer (f.eks. søg efter 1234 og kopier
>12345678) så jeg har det som en variabel

Fx noget i stil med:
Soeg$ ="1234"
Tekst$ ="abccs sdf 1234abcd fdsg"

LaengdeSoestreng = Len(Soeg$)
AntalTegn = Len(Tekst$)
AntalExtKar = 4

For x = 1 to Antaltegn
if MID$(Tekst$, x, LaengdeSoestreng) = Soeg$ THEN
Output$ = MID$(Tekst$, x, LaengdeSoestreng+AntalExtKar)
end if
next x


--
{PS: Indlæg med OE5-fejlen i subject ('Sv' og ikke 'Re') --> killfilter}
OE5-Sv-info + Usenet-test + FreeAgent-newbie-hjælp = www.whitehat.dk/cbh
Rapid-Q BASIC:Console,GUI,Freeware: http://www.basicguru.com/abc/rapidq/
Mvh., Chr. | NB: epost-adr. virker | http://thecola.homepage.com/ -syret

---

CHRistian wrote:
>
> Fx noget i stil med:
> Soeg$ ="1234"
> Tekst$ ="abccs sdf 1234abcd fdsg"

Jeg ved godt at det er mig der er håbløst amatør indenfor VB, men hvad
skal alle de dollaregn gøre godt for?

--
/Lars

A computer scientist is someone who, when told to 'Go to Hell',
sees the 'go to', rather than the destination, as harmful.

---

Lars Hoffmann <lars@hoffmann.ac> wrote:

>> Tekst$ ="abccs sdf 1234abcd fdsg"
>Jeg ved godt at det er mig der er håbløst amatør indenfor VB, men hvad
>skal alle de dollaregn gøre godt for?

Angiver datatypen af variablerne. $ = tekst

--
{PS: Indlæg med OE5-fejlen i subject ('Sv' og ikke 'Re') --> killfilter}
OE5-Sv-info + Usenet-test + FreeAgent-newbie-hjælp = www.whitehat.dk/cbh
Rapid-Q BASIC:Console,GUI,Freeware: http://www.basicguru.com/abc/rapidq/
Mvh., Chr. | NB: epost-adr. virker | http://thecola.homepage.com/ -syret

---

CHRistian wrote:
>
> Lars Hoffmann <lars@hoffmann.ac> wrote:
>
> >> Tekst$ ="abccs sdf 1234abcd fdsg"
> >Jeg ved godt at det er mig der er håbløst amatør indenfor VB, men hvad
> >skal alle de dollaregn gøre godt for?
>
> Angiver datatypen af variablerne. $ = tekst

Er det din personlige stil, eller er det noget der er generelt for VB?

--
/Lars

A computer scientist is someone who, when told to 'Go to Hell',
sees the 'go to', rather than the destination, as harmful.

---

Lars Hoffmann <lars@hoffmann.ac> wrote:

>> Angiver datatypen af variablerne. $ = tekst
>Er det din personlige stil, eller er det noget der er generelt for VB?

Det er, så vidt jeg ved, alment for de fleste BASIC-varianter rundt
omkring, at $ angiver typen til tekst:

Jeg er sikker på følgende
- Rapid-Q BASIC
- Q(uick) BASIC
- Enevlop BASIC
- Commodre-64 BASIC

Er ikke helt sikker på disse:
- XBASIC
- Dartmouth BASIC (en af de første, fra 1965)

--
{PS: Indlæg med OE5-fejlen i subject ('Sv' og ikke 'Re') --> killfilter}
OE5-Sv-info + Usenet-test + FreeAgent-newbie-hjælp = www.whitehat.dk/cbh
Rapid-Q BASIC:Console,GUI,Freeware: http://www.basicguru.com/abc/rapidq/
Mvh., Chr. | NB: epost-adr. virker | http://thecola.homepage.com/ -syret

---

Det er "frivilligt" at bruge "$", men man bør gøre det hvis man ved at det
er tekst, da den performer bedre. Ved ren iteration er der 25-30% at hente.

Mvh/Carsten

CHRistian skriver:

> Lars Hoffmann <lars@hoffmann.ac> wrote:
>
> >> Angiver datatypen af variablerne. $ = tekst
> >Er det din personlige stil, eller er det noget der er generelt for VB?
>

.....

---

Carsten Saugmann skrev:
> Det er "frivilligt" at bruge "$", men man bør gøre det hvis man ved at det
> er tekst, da den performer bedre. Ved ren iteration er der 25-30% at
hente.

Den må du vist uddybe lidt nærmere...

-------
Tomas

---

Carsten Saugmann <saugmann@post4.tele.dk> wrote:

>Det er "frivilligt" at bruge "$", men man bør gøre det hvis man ved at det

Det kommer an på BASICen. VB er den eneste, jeg har set, som godtager,
at en variabel som sådan bare kan være det ene.

>er tekst, da den performer bedre. Ved ren iteration er der 25-30% at hente.

Kan nok hurtigt gå kage i det, hvis der ikke er nogen form for
markering, ja.

--
{PS: Indlæg med OE5-fejlen i subject ('Sv' og ikke 'Re') --> killfilter}
OE5-Sv-info + Usenet-test + FreeAgent-newbie-hjælp = www.whitehat.dk/cbh
Rapid-Q BASIC:Console,GUI,Freeware: http://www.basicguru.com/abc/rapidq/
Mvh., Chr. | NB: epost-adr. virker | http://thecola.homepage.com/ -syret

---

"CHRistian" <nospam@direkte.org> wrote in message som en variabel

> Fx noget i stil med:

Helt perfekt, jeg bukker og takker...

Anders

---

CHRistian skrev:
> Soeg$ ="1234"
> Tekst$ ="abccs sdf 1234abcd fdsg"
>
> LaengdeSoestreng = Len(Soeg$)
> AntalTegn = Len(Tekst$)
> AntalExtKar = 4
>
> For x = 1 to Antaltegn
> if MID$(Tekst$, x, LaengdeSoestreng) = Soeg$ THEN
> Output$ = MID$(Tekst$, x, LaengdeSoestreng+AntalExtKar)
> end if
> next x

Må jeg foreslå dig at kigge på InStr funktionen i stedet (bedre
performance), og glemme alt om dollartegn (min personlige holdning).

Option Explicit

Private Sub cmdSøgTekst_Click()
Dim sSøg As String
Dim sTekst As String
Dim lEkstra As Long
Dim lPos As Long

sSøg = "1234"
sTekst = "abccssdf1234abcddfdsg"
lEkstra = 4
lPos = 1

Do While lPos < Len(sTekst)
lPos = InStr(lPos, sTekst, sSøg)
If lPos > 0 Then
MsgBox "Fundet: " & Mid(sTekst, lPos, Len(sSøg) + lEkstra)
lPos = lPos + Len(sSøg) + lEkstra
Else
lPos = Len(sTekst)
End If
Loop

End Sub

-------
Tomas

---

"Tomas Christiansen" <toc@blikroer.removethis.dk> wrote:

>Må jeg foreslå dig at kigge på InStr funktionen i stedet (bedre

Den er nu ikke helt vildt meget hurtigere. Vel 4-5 gange hurtigere i min
test (Rapid-Q BASIC)

>performance), og glemme alt om dollartegn (min personlige holdning).

Det gør det letter at se, hvilken datatype, vi snakker om. Om der så
står et hint til sidste eller i starten, som du bruger, kommer vel ud på
et.

--
{PS: Indlæg med OE5-fejlen i subject ('Sv' og ikke 'Re') --> killfilter}
OE5-Sv-info + Usenet-test + FreeAgent-newbie-hjælp = www.whitehat.dk/cbh
Rapid-Q BASIC:Console,GUI,Freeware: http://www.basicguru.com/abc/rapidq/
Mvh., Chr. | NB: epost-adr. virker | http://thecola.homepage.com/ -syret

---

---

"preben nielsen" <prel@post.tele.dk> wrote:

>4-5 gange hurtigere? Er det "ikke vildt meget hurtigere" ??? I en

Vi snakker BASIC. BASIC bruges nok ikke til ting og sager, der skal
være vildt hurtigt, vildt optimeret.

>Text$ og hellere lngPos end Pos&. Desuden er du jo heller ikke
>konsekvent - alle dine resterende variabler er jo "type-løse".

Nej, de er alle bestemt. Det eks., jeg kom med, stammede fra Rapid-Q
BASIC/QuickBASIC, hvor variabler - hvis der ikke er angivet en type -
automatisk er hhv. double og single

--
{PS: Indlæg med OE5-fejlen i subject ('Sv' og ikke 'Re') --> killfilter}
OE5-Sv-info + Usenet-test + FreeAgent-newbie-hjælp = www.whitehat.dk/cbh
Rapid-Q BASIC:Console,GUI,Freeware: http://www.basicguru.com/abc/rapidq/
Mvh., Chr. | NB: epost-adr. virker | http://thecola.homepage.com/ -syret

---

CHRistian skrev:
> Vi snakker BASIC.

"Vi" er nu så meget sagt.

"Vi andre" snakker, i en nyhedsgruppe, som er dedikeret Visual Basc, om ...
(stor overraskelse) Visual Basic!!!

"Du" blander en masse andre BASIC'er ind i billedet, som måske nok snarere
burde høre hjemme i dk.programmering.basic...

Enig?

-------
Tomas

---

....Og så prøver vi at poste den igen, da TD@ har probs, store :-/...

"Tomas Christiansen" <toc@blikroer.removethis.dk> wrote:

>"Vi andre" snakker, i en nyhedsgruppe, som er dedikeret Visual Basc, om ...
>(stor overraskelse) Visual Basic!!!

Stor overraskelse: Det jeg har skrevet er ikke forkert i VB (og hvis så,
så kan du måske vise mig hvor?). Læs følgende:

a) VB 1.0: variabler - hvis der ikke er angivet en type - er automatisk
single-typen
b) VB 1.0: Var = "Tekst" er ikke muligt. Var uden dekl. tegn se a
c) VB 1.0: $ = tekst

Andet?

>"Du" blander en masse andre BASIC'er ind i billedet, som måske nok snarere
>burde høre hjemme i dk.programmering.basic...

BASIC <> VB?

>Enig?

Nej. Se op.

--
{PS: Indlæg med OE5-fejlen i subject ('Sv' og ikke 'Re') --> killfilter}
OE5-Sv-info + Usenet-test + FreeAgent-newbie-hjælp = www.whitehat.dk/cbh
Rapid-Q BASIC:Console,GUI,Freeware: http://www.basicguru.com/abc/rapidq/
Mvh., Chr. | NB: epost-adr. virker | http://thecola.homepage.com/ -syret