[Iska]

Код:

Option Explicit

Const strLetter = "i"

Dim strValue


strValue = Trim(InputBox("Enter a string", "Enter a string"))

If Len(strValue) > 0 Then
	WScript.Echo "Letter [" & strLetter & "] occurs " & CStr(Len(strValue) - Len(Replace(strValue, strLetter, ""))) & " times in string [" & strValue & "]."
Else
	WScript.Echo "Input cancelled"
	WScript.Quit 1
End If

WScript.Quit 0

[chiterna]

Iska, ты меня уже столько раз спас, что я тебе вышлю свой диплом :D спасибо большое

[Iska]

Спасибо, диплома не надо. Можете помочь материально .