Like Operator

[svizer]

I am currently extracting some information out of a long string of text and one of the variables I am extracting is plain numbers approx 6 charaacters in length.

Unfortunatly some people have put in strings such as 00:20 which causes a Type Mismatch as I only want to output numbers.

Therefore I am trying the like operator to capture these but I have a problem:

currently using :

---------------------------------------------------------------------------
varUserErr = strTime Like "[0-9]"

If varUserErr = False Then
msgbox "Another idiot has put the wrong info in!"
End If
---------------------------------------------------------------------------

The problem is that if they put in 20 or anything else with more than 1 digit it returns False,

Therefore how can I check for 6 characters of just numbers?

[Memnoch1207]

Try the IsNumeric function and the <> 6 in an If..Then...Else statement.

Something like
If IsNumeric(strTime) and StrTime <> 6 Then
your code
else
whatever
end if

[Microbasic]

Try the IsNumeric Function:

varUserErr = IsNumeric(strTime)
 
If varUserErr = False Then 
msgbox "Another idiot has put the wrong info in!" 
End If

[DerFarm]

well, this is fairly time consuming, but, lacking any better answer:

Function NumStuff(PasdString as string, _
                              Optional NumLen as integer, _
                              Optional NoLeadingZero as Boolean, _
                              Optional PosOnly as Boolean, _
                              Optional IntOnly as Boolean) as Long

   dim xstr as string, lstr as integer, i as integer
   dim Ret_Val as long

   if NumLen<=0 then 
      xNumLen=6
   else
      xNumLen=NumLen
   endif
   
   lstr = len(PasdString)-xNumLen
   for i = 1 to lstr
        xstr = mid$(PasdString,i,xNumLen)
        if isnumeric(xstr) then
           Ret_Val = val(xstr)
           if NoLeadingZero and Ret_Val<val("1" & string$(xNumLen-1,"0") then
                goto NxtI
           endif
           if PosOnly and Ret_Val<0 then goto NxtI
           if IntOnly and instr(xstr,".") >0 then goto NxtI
           goto Xit_NumStuff
        endif
NxtI:
   next i


Xit_NumStuff:
      NumStuff = Ret_Val
end Function

If I haven't made any really stupid errors, the above should
work. Note that the number of digits is variable, the leading zero
operator is variable, you can restrict it to positive numbers
only, it can be restricted to Integers only.

HTH