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

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

null@example.com (Xameleon) — Sat, 07 Mar 2020 13:34:38 +0000

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

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

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

null@example.com (JSmаn) — Wed, 12 Feb 2020 17:32:52 +0000

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

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

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

null@example.com (andypetr) — Tue, 11 Feb 2020 15:15:48 +0000

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: Сколько раз в числе встречается единица

null@example.com (teadrinker) — Tue, 11 Feb 2020 13:32:18 +0000

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

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

null@example.com (Vladimir) — Mon, 10 Feb 2020 20:07:27 +0000

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

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

null@example.com (kamar) — Mon, 10 Feb 2020 17:52:57 +0000

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

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

null@example.com (JSmаn) — Sat, 08 Feb 2020 05:44:42 +0000

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

MsgBox res

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

null@example.com (kamar) — Fri, 07 Feb 2020 18:55:34 +0000

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