Mid

Noget i denne stil?:

dim str as string
dim pos as integer
dim tegn as string
dim taeller as integer

str = "Hej med dig"
tegn = "e"

pos = 1
pos = instr(pos,str,tegn)
taeller=0
while pos > 0
  pos = instr(pos, str, tegn) + 1
  taeller = taeller + 1
wend

msgbox "Forekomster af " & tegn & ": " & taeller

Kunne du lige vedlægge kommentarer ? :0)

... hrm, men du bruge jo slet ikke mid-funktionen... Det var ligesom et must

Nå - det var altså smartere, men så skidt da:

Dim str As String
Dim pos As Integer
Dim tegn As String * 1
Dim taeller As Integer
Dim t As Integer

str = "Hej med dig"
tegn = "e"

pos = 1
taeller = 0
For t = 1 To Len(str)
    If Mid$(str$, t, 1) = tegn Then
        taeller = taeller + 1
    End If
Next
MsgBox "Forekomster af " & tegn & ": " & taeller

sorry... er til en opgave :0)  og så lige lidt kommentare på linie 10 og 11 ?

Hvad står $ tegn for?

'Strengen skal gennemløbes fra tegn nr. 1 til sidste tegn, som er lig længden af strengen
For t = 1 To Len(str)

'Hvis tegnet på position t i strengen er lig det tegn der tælles
If Mid$(str$, t, 1) = tegn Then

... og $ er?

str$ er fuldstændig unødvendigt i denne sammenhæng (jeg ved ikke hvorfor det sneg sig derind). Det angiver at der er tale om at variable skal "typecastes" som string.
Mid$-funktionen gør det samme som Mid-funktionen, men af gammel vane benytter jeg Mid$ da det er lidt hurtigere i koden end Mid.

PS: str$ er naturligvis ikke unødvendig, men $-tegnet er ;-)

Tak  :0) ... er igang med et kursus så der kommer sikkert flere spørgs.