---

Hej NG.

Kan det virkelig passe at VB 6.0 ikke har en IsChar funktion? I .NET kan man
bruge In funktionen, men den findes ikke i 6.0.
Jeg skal i en streng finde nogle koder der starter med et '&' tegn. Koden
slutter med det sidste tegn efter '&' tegnet der ikke er et bogstav. F.eks.
skal der i "tekst &kode1. &ko de278 & pladder" findes koderne "&kode1" og
"&ko". Der bruges ikke nationale karakterer som æ, ø og å; kun a-z.

Nogle ideer?

mvh
Stefan

---

> Kan det virkelig passe at VB 6.0 ikke har en IsChar funktion? I .NET kan
> man
> bruge In funktionen, men den findes ikke i 6.0.
> Jeg skal i en streng finde nogle koder der starter med et '&' tegn. Koden
> slutter med det sidste tegn efter '&' tegnet der ikke er et bogstav.
> F.eks.
> skal der i "tekst &kode1. &ko de278 & pladder" findes koderne "&kode1" og
> "&ko". Der bruges ikke nationale karakterer som æ, ø og å; kun a-z.

---

> Kan det virkelig passe at VB 6.0 ikke har en IsChar funktion? I .NET kan
> man
> bruge In funktionen, men den findes ikke i 6.0.
> Jeg skal i en streng finde nogle koder der starter med et '&' tegn. Koden
> slutter med det sidste tegn efter '&' tegnet der ikke er et bogstav.
> F.eks.
> skal der i "tekst &kode1. &ko de278 & pladder" findes koderne "&kode1" og
> "&ko". Der bruges ikke nationale karakterer som æ, ø og å; kun a-z.

Hvad med at bruge isNumeric..

mypos = InStr(text, "%") 'Look for % characters

Do While mypos > 0
endpos = 0
Do
endpos = endpos + 1
Loop While IsNumeric(Mid$(text, mypos + endpos, 1))
code = Mid$(text, mypos + 1, endpos - 1)
mypos = InStr(mypos + 1, text, "%") 'Find next %, from mypos + 1 and
forward,
Loop

/Lars

---

Stefan Kristensen skrev.
> Jeg skal i en streng finde nogle koder der starter med et '&' tegn. Koden
> slutter med det sidste tegn efter '&' tegnet der ikke er et bogstav.

Prøv at kigge på sammenligningsoperatoren Like.
Der har du mulighed for at angive klasser af tegn, f.eks. [a-z] og visse
begrænsede muligheder for wildcards.

Alternativt kan du i en Case-sætning angive f.eks. Case "a" To "z".

Der er naturligvis også muligheden at sammenligne med StrComp eller
sammenligne direkte, f.eks:
If LCase(noget) >= "a" Or LCase(noget) <= "z" Then

-------
Tomas

---

Tomas Christiansen skrev:
> ...f.eks. [a-z] ...
> ...Case "a" To "z".
> If LCase(noget) >= "a" Or LCase(noget) <= "z" Then

Jeg håber at du har bemærket at det ikke er færdige løsnniger, jeg har givet
dig, men inspiration til at kunne finde din egen løsning.

Der kom lige en idé mere.
Prøv at tilføje en reference til "Microsoft VBScript Regular Expressions" i
dit VB projekt, og prøv følgende kode:

Dim s As String
Dim x As RegExp
Dim m As Match

s = "&var1 f iofje oi &2 deu de &tredie. feij de"
Set x = New RegExp
x.Global = True
x.IgnoreCase = True
x.Pattern = "&\w+"
For Each m In x.Execute(s)
MsgBox "Match: <" & m.Value & ">"
Next

-------
Tomas

---

Tomas Christiansen skrev:
> x.Pattern = "&\w+"

Nå, ja, forresten, syntaksen finder du her:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsgrpRegExpSyntax.asp

-------
Tomas

---

Jeg kan åbenbart ikke poste her i gruppen inde fra arbejdet, så i får først
min tak nu
Tomas: RegExp har altid virket lidt overvældende, men dit eksempel er jo
ganske enkelt og det var faktisk lige det, jeg skulle bruge.

c",)
Stefan

---

Stefan Kristensen skrev:
> Tomas: RegExp har altid virket lidt overvældende, men dit eksempel er jo
> ganske enkelt og det var faktisk lige det, jeg skulle bruge.

Bemærk blot at mit eksempel også accepterer _ som en alfanumerisk tegn som
er acceptabelt i acceptable navne (med fuld accept ).

-------
Tomas

---

> > Tomas: RegExp har altid virket lidt overvældende, men dit eksempel er jo
> > ganske enkelt og det var faktisk lige det, jeg skulle bruge.
>
> Bemærk blot at mit eksempel også accepterer _ som en alfanumerisk tegn som
> er acceptabelt i acceptable navne (med fuld accept ).
Jeg accepterer at dit acceptable eksempel accepterer _
Jeg så godt at definitionen fo +w inkluderer _, men jeg skal lige se lidt
næreme på syntaxen for at definere det selv uden _.

c",)
Stefan