Option Explicit
Dim oDict, sValue
'Создание коллекции для накопления результатов
Set oDict = CreateObject("Scripting.Dictionary")
'Включение текстового режима сравнения строк для игнорирования регистра символов (На случай "Таня" и "таня")
oDict.CompareMode = 2
'Получение строк из входящего потока
While Not WSH.StdIn.AtEndOfStream
	'Чтение строки из потока
	sValue = Trim(WSH.StdIn.ReadLine)
	'Накопление результата
	If sValue <> "" Then oDict(sValue) = oDict(sValue) + 1
Wend
'Вывод результатов подсчёта в выходной поток
For Each sValue in oDict.Keys
	'Вывод результатов подсчёта обратно в поток
	WSH.StdOut.WriteLine sValue & ": " & oDict(sValue)
Next

Option Explicit
Dim oStdIn, oStdOut, oDict, sValue
'Получение объекта для работы с файловой системой (но в данном случае для получения доступа к входящему и выходному потоку)
With CreateObject("Scripting.FileSystemObject")
	'Получение входящего потока
	Set oStdIn = .GetStandardStream(0)
	'Получение выходного потока
	Set oStdOut = .GetStandardStream(1)
End With
'Создание коллекции для накопления результатов
Set oDict = CreateObject("Scripting.Dictionary")
'Включение текстового режима сравнения строк для игнорирования регистра символов (На случай "Таня" и "таня")
oDict.CompareMode = 2
'Получение строк из входящего потока
While Not oStdIn.AtEndOfStream
	'Чтение строки из потока
	sValue = Trim(oStdIn.ReadLine)
	'Накопление результата
	If sValue <> "" Then oDict(sValue) = oDict(sValue) + 1
Wend
'Вывод результатов подсчёта в выходной поток
For Each sValue in oDict.Keys
	'Вывод результатов подсчёта обратно в поток
	oStdOut.WriteLine sValue & ": " & oDict(sValue)
Next

@echo off
cscript //NOLOGO counter.vbs < data.txt > result.txt
pause

:: прочитать один файл
:: обработать
:: записать в другой
line_count.bat < INPUTFILE > OUTPUTFILE

:: прочитать результат одной команды
:: обработать
:: записать в файл
command1 | line_count.bat > OUTPUTFILE

:: прочитать файл
:: обработать
:: результат передать другой команде
line_count.bat < INPUTFILE | command2

:: прочитать результат одной команды
:: обработать
:: результат передать другой команде
command1 | line_count.bat | command2

// предыдущая строка и количество одинаковых строк
var prev;
var count;

// печатать количество и строку
function print() {
	if ( count ) {
		WScript.StdOut.WriteLine(count + ":" + prev);
	}
}

while ( ! WScript.StdIn.AtEndOfStream ) {
	var line = WScript.StdIn.ReadLine();

	// считать количество одинаковых строк
	if ( line === prev ) {
		count++;
		continue;
	}

	// печатать количество и строку (предыдущий блок одинаковых строк)
	print();

	// сбросить счетчики
	count = 1;
	prev = line;
}

// печатать количество и строку (последний блок одинаковых строк)
print();

@sort | cscript //nologo line_count.js

line_count.bat [< INPUTFILE] [> OUTPUTFILE]

word = "таня" 				'искомое слово
papka = "c:\0\"			'папка поиска
output= papka&"отчет\"			'папка output
output_txt = output&"отчет.txt"		'файл отчета

i=0  'счетчик файлов


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRegExp = CreateObject("VBScript.RegExp")
If not objFSO.FolderExists(output) Then objFSO.CreateFolder output          'создаем output

objRegExp.IgnoreCase = True
Set file2 = objFSO.OpenTextFile(output_txt, 2, True) 


RecursiveFolderScan papka
file2.close

Msgbox "ВСЕ! Обработано "& i &" файлов"


 Sub RecursiveFolderScan(FolderPath)
    'Получаем объектную модель текущего каталога
    Set Folder = objFSO.GetFolder(FolderPath)
 
    'Перебираем все файлы в текущем каталоге
    For Each File in Folder.Files
'+++++++++++++++++++++++++++++++++++++++++

Set file1 = objFSO.OpenTextFile(File, 1, False)  'читаем файл
boolFound = False
z=0  'счетчик подстрок
       Do Until file1.AtEndOfStream
            sw = file1.ReadLine() 'по-строчно
            If InStr(1, sw, word) <> 0 Then z=z+1
        Loop
                file2.WriteLine(file.Name) 'пишем в отчет имя файла      
                file2.WriteLine(sw&" повторяется "&z&" раз") 'пишем в отчет всю строку
        file1.close 'закрываем файл

     

            Set file1 = objFSO.OpenTextFile(File, 1, False) 'снова читаем тот же файл
            strText = file1.ReadAll 'читаем все содержимое в переменную            
            file1.close 'и опять закрываем
            'меняем все вхождения найденной строки на пробел - а надо наверное искомого слова - word
            strNewText = Replace(strText, sw, " ")             
 
            'снова открываем тот же файл - на этот раз для записи - таким образом удаляя все содержимое файла
            Set file1 = objFSO.OpenTextFile(File, 2, False)
            file1.WriteLine strNewText 'пишем новое содержимое
            file1.close 'и закрываем в третий раз
  



i=i+1        'счетчик файлов
'++++++++++++++++++++++++++++++++++++++

    Next

End Sub