Серый форум — VBS: Сколько раз в числе встречается единица

Re: VBS: Сколько раз в числе встречается единица

2020-03-07T13:34:38Z

With New RegExp
	.Pattern = "1"
	.Global = True
	MsgBox .Execute("543344111").Count
End With

Докину ещё вариант.

Re: VBS: Сколько раз в числе встречается единица

2020-02-12T17:32:52Z

kamar
Второе предупреждение по оформлению темы. Ознакомьтесь с Правилами публикации. Не сможете понять о чем я говорю, то попрощаемся.

Темы объединил.

Re: VBS: Сколько раз в числе встречается единица

2020-02-11T15:15:48Z

kamar

Ответили ведь уже в предыдущей теме.
JSman http://forum.script-coding.com/viewtopic.php?id=15171
Самое краткое и эффективное решение - через функцию Replace(), а далее она сама оптимизированным компилированным двоичным кодом решает.


	num = 1010111
	tmp = CStr(num)
	res = len(tmp) - len(replace(tmp, "1", ""))
	MsgBox res

Через циклы Do While - ну, если сразу и не проверяя, ...


	num = 1010111
	tmp = CStr(num)
	res = 0
	i = 1
	Do While i <= Len(tmp)
		If Mid(tmp, i, 1) = "1" Then
			res = res + 1
		End If
		i = i + 1
	Loop
	MsgBox res

PS. Название "новой" темы, конечно, 5+. Выпилит модератор, как пить дать. Аминь.

Re: VBS: Сколько раз в числе встречается единица

2020-02-11T13:32:18Z

kamar, я твой препод по информатике, не пытайся меня обмануть, решай сам!!!

Re: VBS: Сколько раз в числе встречается единица

2020-02-10T20:07:27Z

kamar
А вы взяли себе за труд прочитать хотябы это http://script-coding.com/wsh_chm.zip?

Re: VBS: Сколько раз в числе встречается единица

2020-02-10T17:52:57Z

JSman
Можете объяснить значения строк?

Re: VBS: Сколько раз в числе встречается единица

2020-02-08T05:44:42Z

num = 1010111
tmp = CStr(num)
res = len(tmp) - len(replace(tmp, "1", ""))

MsgBox res

VBS: Сколько раз в числе встречается единица

2020-02-07T18:55:34Z

Дано целое число. Найти сколько раз в его десятичной записи встречается единица.