Обработка строк

@Slave · Регистрация: 19.01.2010

Author24 — интернет-сервис помощи студентам

В заданной строке определить наибольшее количество цифр, идущих подряд.

@YuraAAA · 21.03.2010, 19:16

Visual Basic

Private Sub Command1_Click()
Dim st As Variant, i As Single
Dim char As Variant
Dim k1, k2
st = Text1
k1 = 0
k2 = 0
For i = 1 To Len(st)
char = Mid(st, i, 1)
If char <= "9" And char >= "0" Then
k1 = k1 + 1
If k1 > k2 Then k2 = k1
Else
k1 = 0
End If
Next i
If k2 = 0 Then
MsgBox k1
Else
MsgBox (k2)
End If
End Sub

@Toxa33rus · 21.03.2010, 19:22

Visual Basic

Stroka = "fgf565sfgsg930039mkm66"
For i = 1 To 9
  Stroka = Replace(Stroka, i, "0")
Next i
Max = 0
Do While InStr(Stroka, String(Max + 1, "0")) > 0
  Max = Max + 1
Loop
MsgBox Max

Добавлено через 1 минуту
YuraAAA, опять ты меня обогнал

Молодец! Но зато у меня красивее решение

@YuraAAA · 21.03.2010, 19:24

Toxa33rus, Да у меня оно постоянно какое-то длинное получается =))) Люблю домой через Москву ходить...и изобретать колесо )))

@gaw · 21.03.2010, 19:53

Сообщение от YuraAAA

If k2 = 0 Then
MsgBox k1
Else
MsgBox (k2)
End If

= MsgBox (k2) или я ошибаюсь

@flower88 · 02.04.2010, 16:23

Сообщение от Toxa33rus

Visual Basic

Stroka = "fgf565sfgsg930039mkm66"
For i = 1 To 9
  Stroka = Replace(Stroka, i, "0")
Next i
Max = 0
Do While InStr(Stroka, String(Max + 1, "0")) > 0
  Max = Max + 1
Loop
MsgBox Max

А что обозначает это:

Stroka = Replace(Stroka, i, "0")

Do While InStr(Stroka, String(Max + 1, "0")) > 0

@Slave 0 / 0 / 0 Регистрация: 19.01.2010 Сообщений: 8
		1
	Обработка строк 21.03.2010, 19:00. Показов 1210. Ответов 5 Метки нет (Все метки) В заданной строке определить наибольшее количество цифр, идущих подряд. 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	21.03.2010, 19:24	4
	Toxa33rus, Да у меня оно постоянно какое-то длинное получается =))) Люблю домой через Москву ходить...и изобретать колесо ))) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	21.03.2010, 19:53	5
	Сообщение от YuraAAA If k2 = 0 Then MsgBox k1 Else MsgBox (k2) End If = MsgBox (k2) или я ошибаюсь 0

	02.04.2010, 16:23