textStatistics.js

// https://akelpad.sourceforge.net/forum/viewtopic.php?p=9927#p9927
// https://infocatcher.ucoz.net/js/akelpad_scripts/textStatistics.js
// https://github.com/Infocatcher/AkelPad_scripts/blob/master/textStatistics.js

// (c) Infocatcher 2008-2025
// Version: 0.4.0pre3 - 2025-01-27
// Author: Infocatcher

//// Provide some statistic for English and Russian texts

// Arguments:
//   -useSel=true       - (default) show statistics for selected text
//          =false      - always show statistics for current document
//   -maxLine=40        - maximum displayed symbols for longest line
//   -maxMixed=5        - maximum displayed words with mixed Cyrillic/Latin symbols
//   -maxWord=40        - maximum displayed symbols for words with mixed Cyrillic/Latin symbols
//                        (or use -arg=Infinity to display all symbols or words)
//   -output=0          - (default) show statistics in massage box
//          =1          - in Log plugin
//          =2          - in new document
//   -coderAlias=".txt" - set alias for Coder plugin (for -output=1 or -output=2)

// Usage:
//   Call("Scripts::Main", 1, "textStatistics.js")
//   Call("Scripts::Main", 1, "textStatistics.js", "-maxLine=60 -maxWord=50 -maxMixed=10")

// Windows XP+ (?)

var useSel     = AkelPad.GetArgValue("useSel", true);
var maxLine    = AkelPad.GetArgValue("maxLine", 40);
var maxMixed   = AkelPad.GetArgValue("maxMixed", 5);
var maxWord    = AkelPad.GetArgValue("maxWord", 40);
var outMode    = AkelPad.GetArgValue("output", 0);
var coderAlias = AkelPad.GetArgValue("coderAlias", ".txt");

function _localize(s) {
	var strings = {
		"Statistics…": {
			ru: "Статистика…"
		},
		"[selected text]": {
			ru: "[выделенный текст]"
		},
		"Text missing!": {
			ru: "Текст отсутствует!"
		},
		"Lines and spaces…": {
			ru: "Строки и пробелы…"
		},
		"Lines: ": {
			ru: "Строки: "
		},
		"Only spaces: ": {
			ru: "Только пробельные символы: "
		},
		"Empty: ": {
			ru: "Пустые: "
		},
		"Lines length…": {
			ru: "Длина строк…"
		},
		"Shortest line: %L": {
			ru: "Самая короткая строка: %L"
		},
		"Longest line: %L": {
			ru: "Самая длинная строка: %L"
		},
		"%N: “%S”": {
			ru: "%N: «%S»"
		},
		"Symbols…": {
			ru: "Символы…"
		},
		"Symbols: ": {
			ru: "Символы: "
		},
		"Cyrillic: ": {
			ru: "Кириллица: "
		},
		"Latin: ": {
			ru: "Латиница: "
		},
		"Digits: ": {
			ru: "Цифры: "
		},
		"Space symbols: ": {
			ru: "Пробельные символы: "
		},
		"Spaces: ": {
			ru: "Пробелы: "
		},
		"Tabs: ": {
			ru: "Табуляции: "
		},
		"Carriage returns (\\r): ": {
			ru: "Возвраты каретки (\\r): "
		},
		"Line feeds (\\n): ": {
			ru: "Переводы строки (\\n): "
		},
		"Other spaces: ": {
			ru: "Прочие пробельные символы: "
		},
		"Null characters (\\0): ": {
			ru: "Нулевые символы (\\0): "
		},
		"Words…": {
			ru: "Слова…"
		},
		"Words: ": {
			ru: "Слова: "
		},
		"Cyrillic: ": {
			ru: "Кириллица: "
		},
		"Latin: ": {
			ru: "Латиница: "
		},
		"Mixed symbols…": {
			ru: "Смешанные символы…"
		},
		"Mixed Cyrillic+Latin: ": {
			ru: "Смешанная кириллица с латиницей: "
		},
		"Numbers…": {
			ru: "Числа…"
		},
		"Numbers: ": {
			ru: "Числа: "
		},
		"Decimal: ": {
			ru: "Десятичные: "
		},
		"Hexadecimal: ": {
			ru: "Шестнадцатеричные: "
		},
		"n/a": {
			ru: "н/д"
		},
		"Too slow: time limit exceeded…": {
			ru: "Слишком медленно: достигнуто ограничение по времени…"
		},
		"Warning! Executed with errors:\n%E": {
			ru: "Внимание! Выполнено с ошибками:\n%E"
		}
	};
	var lng = "en";
	switch(AkelPad.GetLangId(1 /*LANGID_PRIMARY*/)) {
		case 0x19: lng = "ru";
	}
	_localize = function(s) {
		return strings[s] && strings[s][lng] || s;
	};
	return _localize(s);
}

//var AkelPad = new ActiveXObject("AkelPad.document");
var hMainWnd = AkelPad.GetMainWnd();
var hWndEdit = AkelPad.GetEditWnd();
var oSys = AkelPad.SystemFunction();

if(hMainWnd)
	showTextStatistics();

function showTextStatistics() {
	var res = getTextStatistics();
	switch(outMode) {
		default: case 0:
			var icon = getTextStatistics.__error ? 48 /*MB_ICONEXCLAMATION*/ : 64 /*MB_ICONINFORMATION*/;
			AkelPad.MessageBox(hMainWnd, res.replace(/\0/g, "¤"), WScript.ScriptName, icon);
		break;
		case 1:
			AkelPad.Call("Log::Output", 4, res, res.length, 2, 0, coderAlias);
		break;
		case 2:
			AkelPad.SendMessage(hMainWnd, 273 /*WM_COMMAND*/, 4101 /*IDM_FILE_NEW*/, 0);
			AkelPad.SetSel(0, -1);
			AkelPad.ReplaceSel(res);
			AkelPad.SetSel(0, 0);
			if(
				AkelPad.IsPluginRunning("Coder::HighLight")
				|| AkelPad.IsPluginRunning("Coder::AutoComplete")
				|| AkelPad.IsPluginRunning("Coder::CodeFold")
			)
				AkelPad.Call("Coder::Settings", 6, coderAlias);
	}
}
function getTextStatistics() {
	var statusbar = new Statusbar();
	statusbar.save();
	function progress(percent, msg) {
		statusbar.set(percent + "% " + msg);
	}
	progress(0, _localize("Statistics…"));

	var cFile = AkelPad.GetEditFile(0);
	var newLine = 4 - AkelPad.GetEditNewLine(0);
	var txt = useSel && AkelPad.GetSelText(newLine);
	if(txt)
		var selMark = _localize("[selected text]");
	else {
		txt = cFile // Prefer ReadFile() to preserve all newline characters as is
			? AkelPad.ReadFile(cFile, 0, AkelPad.GetEditCodePage(0), AkelPad.GetEditBOM(0))
			: AkelPad.GetTextRange(0, -1, newLine);
	}
	if(!txt)
		return _localize("Text missing!");

	progress(10, _localize("Lines and spaces…"));

	var txtn = txt.replace(/\r\n?/g, "\n"); // Strange things happens with \r\n
	var res = cFile
		? cFile + ":\n" + (selMark ? selMark + "\n\n" : "\n")
		: (selMark ? selMark + "\n\n" : "");

	// Note: used /[\s\xa0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000\ufeff]/
	// instead of /\s/ to match behavior of modern js-engines

	res +=          _localize("Lines: ")       + formatNum(countOf(txtn, /^/mg)) + "\n";
	res += "  – " + _localize("Only spaces: ") + formatNum(countOf(txt, /^[\t \xa0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000\ufeff]+$/mg)) + "\n";
	res += "  – " + _localize("Empty: ")       + formatNum(countOf(txtn, /^$/mg)) + "\n";

	res += "\n";
	progress(20, _localize("Lines length…"));

	var longestLine  = -1,       longestLineNum,  longestLineText;
	var shortestLine = Infinity, shortestLineNum, shortestLineText;
	var lines = txtn.split("\n");
	txtn = null;
	var curLine, curLen;
	var tabStop = AkelPad.SendMessage(hWndEdit, 3239 /*AEM_GETTABSTOP*/, 0, 0) || 8;
	for(var i = 0, l = lines.length; i < l; ++i) {
		curLine = lines[i];
		curLen = curLine.length;

		var ti = curLine.indexOf("\t");
		if(ti != -1) {
			var tabWidth, dw;
			for(var j = ti, column = ti, ll = curLen; j < ll; ++j, ++column) {
				if(curLine.charAt(j) != "\t")
					continue;
				tabWidth = tabStop - column % tabStop;
				if(tabWidth <= 1)
					continue;
				dw = tabWidth - 1;
				curLen += dw;
				column += dw;
			}
		}

		if(curLen > longestLine) {
			longestLine = curLen;
			longestLineNum = i + 1;
			longestLineText = curLine;
		}
		if(curLen < shortestLine) {
			shortestLine = curLen;
			shortestLineNum = i + 1;
			shortestLineText = curLine;
		}
	}
	lines = null;

	var dl = ("" + longestLineNum).length - ("" + shortestLineNum).length;
	if(dl > 0)
		shortestLineNum = stringRepeat("0", dl) + shortestLineNum;
	else if(dl < 0)
		longestLineNum = stringRepeat("0", -dl) + longestLineNum;

	res +=          _localize("Longest line: %L").replace("%L", formatNum(longestLine)) + "\n";
	res += "  – " + _localize("%N: “%S”").replace("%N", longestLineNum).replace("%S", formatLine(longestLineText)) + "\n";
	res +=          _localize("Shortest line: %L").replace("%L", formatNum(shortestLine)) + "\n";
	res += "  – " + _localize("%N: “%S”").replace("%N", shortestLineNum).replace("%S", formatLine(shortestLineText)) + "\n";

	res += "\n";
	progress(40, _localize("Symbols…"));

	var sps = {};
	sps.sps    = countOf(txt, / /g);
	sps.tab    = countOf(txt, /\t/g);
	sps.cr     = countOf(txt, /\r/g);
	sps.lf     = countOf(txt, /\n/g);
	// Note: used \v -> \x0b, \f -> \x0c for better compatibility
	sps.other  = countOf(txt, /[\x0b\x0c\xa0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000\ufeff]/g);

	res +=             _localize("Symbols: ")                + formatNum(txt.length) + "\n";
	res += "  – "    + _localize("Cyrillic: ")               + formatNum(countOf(txt, /[а-яёА-ЯЁ]/g)) + "\n";
	res += "  – "    + _localize("Latin: ")                  + formatNum(countOf(txt, /[a-zA-Z]/g)) + "\n";
	res += "  – "    + _localize("Digits: ")                 + formatNum(countOf(txt, /\d/g)) + "\n";
	res += "  – "    + _localize("Space symbols: ")          + formatSum(sps.sps, sps.tab, sps.cr, sps.lf, sps.other) + "\n";
	res += "     = " + _localize("Spaces: ")                 + formatNum(sps.sps)   + "\n";
	res += "     = " + _localize("Tabs: ")                   + formatNum(sps.tab)   + "\n";
	res += "     = " + _localize("Carriage returns (\\r): ") + formatNum(sps.cr)    + "\n";
	res += "     = " + _localize("Line feeds (\\n): ")       + formatNum(sps.lf)    + "\n";
	res += "     = " + _localize("Other spaces: ")           + formatNum(sps.other) + "\n";
	res += "  – "    + _localize("Null characters (\\0): ")  + formatNum(countOf(txt, /\0/g)) + "\n";

	res += "\n";
	progress(50, _localize("Words…"));

	var wordsCyr = countOf(txt, /(^|[\s\xa0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000\ufeff]|[^-а-яёА-ЯЁa-zA-Z\d])[а-яёА-ЯЁ]+(-[а-яёА-ЯЁ]+)*(?=$|[\s\xa0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000\ufeff]|[^-а-яёА-ЯЁa-zA-Z\d])/g);
	var wordsLat = countOf(txt, /(^|[\s\xa0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000\ufeff]|[^-а-яёА-ЯЁa-zA-Z\d])[a-zA-Z]+(-[a-zA-Z]+)*('[sStT])?(?=$|[\s\xa0\u1680\u2000-\u200a\u2028\u2029\u202f\u205f\u3000\ufeff]|[^-а-яёА-ЯЁa-zA-Z\d])/g);
	res +=          _localize("Words: ")    + formatSum(wordsCyr, wordsLat) + "\n";
	res += "  – " + _localize("Cyrillic: ") + formatNum(wordsCyr) + "\n";
	res += "  – " + _localize("Latin: ")    + formatNum(wordsLat) + "\n";

	res += "\n";
	progress(60, _localize("Mixed symbols…"));

	try {
		var cyrLatMixM = txt.match(/((\\)?[a-zA-Z][-\wа-яёА-ЯЁ]*[а-яёА-ЯЁ]|[а-яёА-ЯЁ][-\wа-яёА-ЯЁ]*[a-zA-Z])/g);
		var cyrLatMix = cyrLatMixM ? cyrLatMixM.length : 0;

		progress(70, _localize("Mixed symbols…"));
		var filtered = [];
		for(var i = 0; i < cyrLatMix; ++i) {
			var s = cyrLatMixM[i];
			if(
				/^[a-zA-Z]+-[а-яёА-ЯЁ]+$/.test(s) // Something like "esc-последовательность"
				|| /^\\[rn][а-яёА-ЯЁ]+$/.test(s) // Ignore \n and \r: "…\nНовая строка"
			)
				continue;
			filtered.push(s.replace(/^\\/, ""));
		}
		cyrLatMixM = filtered;
		cyrLatMix = filtered.length;
		filtered = null;
	}
	catch(e) {
		getTextStatistics.__error = e && e.message || ("" + e);
		cyrLatMix = NaN;
	}

	res += _localize("Mixed Cyrillic+Latin: ") + formatNum(cyrLatMix) + "\n";
	for(var i = 0, max = Math.min(maxMixed, cyrLatMix); i < max; ++i)
		res += "  – " + formatWord(cyrLatMixM[i]) + "\n";
	cyrLatMixM = null;
	if(maxMixed && cyrLatMix > maxMixed)
		res += "  …\n";

	res += "\n";
	progress(80, _localize("Numbers…"));

	var numsDec = countOf(txt, /(^|\W)\d+([.,]\d+)?(?=(\W|$))/g); // Be careful with numbers like "0,2"
	var numsHex = countOf(txt, /(^|\W)0[xX][\da-fA-F]+(?=(\W|$))/g);
	res +=          _localize("Numbers: ")     + formatSum(numsDec, numsHex) + "\n";
	res += "  – " + _localize("Decimal: ")     + formatNum(numsDec) + "\n";
	res += "  – " + _localize("Hexadecimal: ") + formatNum(numsHex) + "\n";

	if(getTextStatistics.__error) {
		res += "\n" + _localize("Warning! Executed with errors:\n%E")
			.replace("%E", getTextStatistics.__error);
	}

	statusbar.restore();

	return res;
}
function countOf(txt, regexp) {
	try {
		var m = txt.match(regexp);
		return m ? m.length : 0;
	}
	catch(e) {
		getTextStatistics.__error = e && e.message || ("" + e);
	}
	if(regexp.global) try {
		var t = new Date().getTime() + 3000;
		var cnt = 0;
		while(regexp.exec(txt)) {
			if(!(++cnt % 100) && new Date().getTime() > t) {
				getTextStatistics.__error = _localize("Too slow: time limit exceeded…");
				var n = new Number(cnt);
				n._tsPrefix = ">";
				return n;
			}
		}
		getTextStatistics.__error = "";
		return cnt;
	}
	catch(e) {
		getTextStatistics.__error = e && e.message || ("" + e);
	}
	return NaN;
}
function formatNum(n) {
	if(typeof n == "number" && isNaN(n))
		return _localize("n/a");
	// 1234567 -> 1 234 567
	return (n._tsPrefix || "") + ("" + n).replace(/(\d)(?=(\d{3})+(\D|$))/g, "$1\xa0");
}
function formatSum() {
	var sum = 0
	var prefix = "";
	for(var i = 0, l = arguments.length; i < l; ++i) {
		var a = arguments[i];
		if(a._tsPrefix || null)
			prefix = a._tsPrefix;
		sum += a;
	}
	return prefix + formatNum(sum);
}
function formatWord(s) {
	if(s.length > maxWord)
		return s.substr(0, maxWord) + "…";
	return s;
}
function formatLine(s) {
	var tabWidth = AkelPad.SendMessage(hWndEdit, 3239 /*AEM_GETTABSTOP*/, 0, 0) || 8;
	var tab = stringRepeat(" ", tabWidth);
	var ret = s.substr(0, maxLine);
	while(ret.replace(/\t/g, tab).length > maxLine)
		ret = ret.substr(0, ret.length - 1);
	return ret == s
		? ret
		: ret + "…";
}
function stringRepeat(pattern, count) {
	// See https://stackoverflow.com/questions/202605/repeat-string-javascript
	if(count < 1)
		return "";
	var result = "";
	while(count > 1) {
		if(count & 1)
			result += pattern;
		count >>= 1;
		pattern += pattern;
	}
	return result + pattern;
}

function Statusbar() {
	// Note: destroy() don't used since 2024-10-06
	this.get = this.set = this.save = this.restore = this.destroy = function() {};

	// Based on Instructor's code: https://akelpad.sourceforge.net/forum/viewtopic.php?p=13656#p13656
	var hWndStatus = oSys.Call("user32::GetDlgItem", hMainWnd, 10002 /*ID_STATUS*/);
	if(!hWndStatus || !oSys.Call("user32::IsWindowVisible", hWndStatus))
		return;
	var nParts = AkelPad.SendMessage(hWndStatus, 1030 /*SB_GETPARTS*/, 0, 0);
	if(nParts <= 5)
		return;

	var _origStatus, _customStatus;
	this.get = function() {
		var lenType = AkelPad.SendMessage(hWndStatus, _TSTR ? 1036 /*SB_GETTEXTLENGTHW*/ : 1027 /*SB_GETTEXTLENGTHA*/, nParts - 1, 0);
		var len = lenType & 0xffff; // low word
		var lpTextBuffer = AkelPad.MemAlloc((len + 1)*_TSIZE);
		if(!lpTextBuffer)
			return "";
		AkelPad.SendMessage(hWndStatus, _TSTR ? 1037 /*SB_GETTEXTW*/ : 1026 /*SB_GETTEXTA*/, nParts - 1, lpTextBuffer);
		var text = AkelPad.MemRead(lpTextBuffer, _TSTR);
		AkelPad.MemFree(lpTextBuffer);
		return text;
	};
	this.set = function(pStatusText) {
		_customStatus = pStatusText;
		AkelPad.SendMessage(hWndStatus, _TSTR ? 1035 /*SB_SETTEXTW*/ : 1025 /*SB_SETTEXTA*/, nParts - 1, pStatusText);
	};
	this.save = function() {
		_origStatus = this.get();
	};
	this.restore = function() {
		if(_origStatus != undefined && this.get() == _customStatus)
			this.set(_origStatus);
	};
}