Behalve : en /

[Flormot]

ik zit met hetvolgende

ik laat een inputbox verschijnen en sla de input op in 'input'

Nu zou ik willen verhinderen (of een melding geven) wanneer input tekens als een . / : ? enz bevat.
hoe doe je zoiets?

 

[KaY.NL]

Je kunt met de functie Mid() stukjes uit een string kappen. Het is dan mogelijk om doormiddel van een herhaling iets te zeggen als: neem zinS als input:

Dim aantal As Integer
Dim plaats As Integer
Dim letterS As String
Dim zinS As String
Dim input Ás Integer

aantal = 0
plaats = 1
input = Len(inputS)
For iets = 1 To Input
  aantal = aantal + 1
  plaats = plaats + 1
  letterS =  Mid(zinS, plaats, 1)
  If letterS = "?" Or "/" Or ":" Then
     geef melding
  End If
Next

 

[cbhonda]

insStr

Met de functie inStr kan je in een string zoeken naar bepaalde tekens.

Help
______________________
The InStr function returns the position of the first occurrence of one string within another.

The InStr function can return the following values:

If string1 is "" - InStr returns 0
If string1 is Null - InStr returns Null
If string2 is "" - InStr returns start
If string2 is Null - InStr returns Null
If string2 is not found - InStr returns 0
If string2 is found within string1 - InStr returns the position at which match is found
If start > Len(string1) - InStr returns 0
Tip: Also look at the InStrRev function

Syntax
InStr([start,]string1,string2[,compare])

Parameter Description
start Optional. Specifies the starting position for each search. The search begins at the first character position by default. This parameter is required if compare is specified
string1 Required. The string to be searched
string2 Required. The string expression to search for
compare Optional. Specifies the string comparison to use. Default is 0
Can have one of the following values:

0 = vbBinaryCompare - Perform a binary comparison
1 = vbTextCompare - Perform a textual comparison

 

[KaY.NL]

Hm.. ja dat is nog net zo handig. Ik kende de functie niet .