Нахождение числа в строке

[Sanya Z]

Как из такой строки выбрать только число Например: "pr123st"
Большое спасибо!

[ANDLL]

Код: Выделить всё

dim I as long, pos as long

for i=0 to 9
   pos=instr(stroka,cstr(i))
   if pos>0 then
      number=val(mid(stroka,pos))
      Exit for'а может и не надо...
   enb if
next

[Mikle]

Код: Выделить всё

for n = 1 to len(s)
  d= val (mid$(s,n))
  if d<>0 then exit for
next n
debug.print d


найдет ПЕРВОЕ число в строке.

[gaidar]

А через Like [0-9] нельзя?

[Mikle]

Можно, только еще "." для дробей и "-" для отрицательных.

[ANDLL]

Простите за глупость
Что такое like??

Это такой оператор, или функция???
Ичто он/она делает.

[gaidar]

Оператор сравнения. Читай msdn.

[Sanya Z]

Насколько я понял вышеназванные коды находят только первую цифру числа, а как выдрать все число Помню, я где-то видел пример, когда в TextBox можно было вводить только цифры. Возможно, на основ этого можно найти и все число, путем посимвольного опознавания. Если у кого есть, киньте please!

[vilin]

Например, st="fsdf342hfdg"

Тогда:

dim chislo as string
dim ch as string

for i=1 to len(st)
ch=mid(st,i,1)
if IsInt(ch) =true then ' я не помню точно: IsInt или IsInteger... посмотришь сам
chislo = chislo & ch
endif
next i

dim a as integer
a = int(chislo) ' а - нужное тебе число

Вроде бы, должно работать, не проверял...
Если что, пиши...

[Sanya Z]

На IsInt ругается, а идея правильная.

[GSerg]

Короче, в общем виде...

Код: Выделить всё

function filter(byval s as string, byval f as string) as string
  dim i as long, tmpStr as string
  for i=1 to len(s)
    tmpstr=mid$(s,i,1)
    if instr(f,tmpstr) then filter=filter+tmpstr
  next
end function

debug.? filter("dfgsdf04567d","0123456789.")

[Mikle]

Sanya Z

Насколько я понял вышеназванные коды находят только первую цифру числа, а как выдрать все число

Ты бы хоть проверил, что тебе написали, а потом делел выводы. Мой пример дает ВСЕ число, только допиши вначале:

Код: Выделить всё

  DIM n as integer, d as duoble, s as string
  s="jddjk-35.345hkjd lsa "


я это не вписал - думал и так понятно.

[Mikle]

GSerg
Вариант более, чем с одним числом, например такой:

Код: Выделить всё

Debug.Print filter("dfgsdf04567d34656", "0123456789.")


или с несколькими десятичными точками, дает неверный результат.

[vilin]

Я тут немного помучался, и нашёл новый способ решения... правда, переменных многовато...

Код: Выделить всё

Dim st As String
    st = "ksjhgk -32542.25 fkgjdf"
Dim i As Integer
Dim ch As String
Dim ch2 As String
Const stroka = "1234567890"
Dim chislo As String


For i = 1 To Len(st)
    ch = Mid(st, i, 1)
    Select Case ch
        Case "-"
            ch2 = Mid(st, i + 1, 1)
            If InStr(stroka, ch2) Then
                chislo = chislo & Mid(st, i, 2)
                i = i + 1
            End If
   
        Case "."
            If i <> 1 Then
                ch2 = Mid(st, i - 1, 1)
                If InStr(stroka, ch2) Then
                    chislo = chislo & Mid(st, i, 1)
                End If
            End If
    End Select
   
    If InStr(stroka, ch) Then
        chislo = chislo & Mid(st, i, 1)
    End If
   
Next i

chislo - Нужное тебе число (в текстовом виде)
Далее, в зависимости от типа числа (Integer или Double), преобразовываешь его в нужный тебе тип...

[Sanya Z]

Всем огромное спасибо! Все работает