Задача на обработку строк

[max1m9]

Прелложите вариант решения следующей задачи:
Дана строка; найти наибольшее количество цифр, идущих в нем подряд.

[doober]

Предлагаю
Разбиваем строку на символы
счетчик,временный счетчик обнуляем
В цикле проверяем по символьно на принадлежность к цифре.
Если цифра прибавляем к временному счетчику 1.
если следующий символ не цифра сравниваем показания счетчика и временного счетчика,если временный больше,присваиваем счетчику показания временного.Временный обнуляем.
После окончания цикла показания счетчика и есть максимальное количество цифр подряд в строке

[IgorGO]

Function MaksDgt(s As String) As Integer
  Dim m As Integer, n As Integer
  m = 0
  For i = 48 To 57
    n = 0
    For c = 1 To Len(s)
      If Mid(s, c, 1) = Chr(i) Then n = n + 1 Else n = 0
      If n > m Then m = n
    Next
  Next
  MaksDgt = m
End Function

[viter.alex]

Предложу свой вариант. Преимущество в скорости работы, особенно при очень длинных строках, можно научить искать не только целые числа.

Function MaxDigits(StringWithNumbers As String) As Integer
  Dim oRegExp As Object 'Объект для работы с регулярными выражениями
  Dim oMatch As Object 'Найденное выражение
  Dim oMatches As Object 'Коллекция найденных выражений
  Set oRegExp = CreateObject("VBScript.RegExp")
  Dim MaxNum As String
  oRegExp.Pattern = "\d{1,}"
  oRegExp.Global = True
  Set oMatches = oRegExp.Execute(StringWithNumbers)
  'Перебираем все найденные цифры и сравниваем длину
  For Each oMatch In oMatches
    If Len(oMatch.Value) > Len(MaxNum) Then
      MaxNum = oMatch.Value
    End If
  Next
  MaxDigits = Len(MaxNum)
  Set oRegExp = Nothing: Set oMatch = Nothing: Set oMatches = Nothing
End Function

[max1m9]

Взял за основу вариант IgorGo,немного пределал(мне надо через кнопку и textboxы)но почему то он пишет постоянно 0.Подозреваю,что неправильно что-то с if. Подскажите,что надо поменять:

Private Sub CommandButton1_Click()
Dim s As String
Dim m As Integer, n As Integer
TextBox1.Value = s
m = 0
For i = 48 To 57
n = 0
For c = 1 To Len(s)
If Mid(s, c, 1) = Chr(i) Then n = n + 1 Else n = 0
If n > m Then m = n
Next
Next
TextBox2.Value = m
End Sub

[viter.alex]

Ну, не захотел мой вариант, то тогда так:

Private Sub CommandButton1_Click()
  Dim m As Integer 'временный счётчик цифр
  Dim n As Integer 'максимальное количество цифр
  Dim i As Integer 'счётчик букв в строке
  Dim s As String 'строка с цифрами
  
  s = TextBox1.Text
  For i = 1 To Len(s)
    If IsNumeric(Mid(s, i, 1)) Then 'Если очередной знак в строке является цифрой
      m = m + 1 'Увеличиваем значение счетчика
    Else 'Если не является цифрой
      If m > n Then 'если значение временного счётчика больше максимального количества
        n = m 'переписываем его в максимальное количество
      End If
      m = 0 'сбрасываем временный счетчик
    End If
  Next
  Debug.Print s
  Debug.Print n
End Sub

[max1m9]

Спасибо большое,очень помогли.