PP Script: Byte Count

[Ergo]

Данный скрипт подсчитывает размер введенного текста в байтах, грубо говоря колличество символов, что иногда очень бывает необходимо, если в форму можно ввести текст ограниченного размера, но не стоит предел для его ввода. Сохраните данный скрипт в текстовом файле, например, byte_count.txt, и назначьте на горячие клавиши или кнопку его выполнение как *Script Runfile C:PowerProScriptbyte_count.txt

Код: выделить все

My_TempFile = "&(pprofolder)Scriptsbytecount.tmp"

File Delete "&(My_TempFile)"

Clip Copy

Clip ToFile "&(My_TempFile)"

Clip ClearClipBoard

sFileName = "&(My_TempFile)"

sOutput = MiscPlugin.fileinfo("size")

Message (&(sOutput) bytes) *takefocus

File Delete "&(My_TempFile)"

© Ergo

[Ergo]

Немного улучшил внешний вид преподачи результата в скрипте. Вот окончательный вариант:

Код: выделить все

My_TempFile = "&(pprofolder)Scriptsbytecount.tmp"

File Delete "&(My_TempFile)"

Clip Copy

Clip ToFile "&(My_TempFile)"

Clip ClearClipBoard

sFileName = "&(My_TempFile)"

sOutput = MiscPlugin.fileinfo("size")

MessageBox ("ok", "&(sOutput) bytes")

File Delete "&(My_TempFile)"

[Ergo]

Совсем забыл, для его работу нужен будет Misc Plugin. У кого его нет, можно скачать здесь
<a href='http://fileforum.ru/files/miscplugin_v1.3.rar' target='_blank'>http://fileforum.ru/files/miscplugin_v1.3.rar</a> (60Кб)

Распаковать и выложить в каталог Plugins.