В данной статье приведены макросы, работающие только при установленном .NET Framework
Перестановка строк в обратном порядке в текстовом файле:
Sub ReverseTextFile() Filename$ = "c:\test.txt" ' строки в этом файле будут переставлены в обратном порядке Set FSO = CreateObject("Scripting.FileSystemObject") Set objFile = FSO.OpenTextFile(Filename$, 1) Set a = CreateObject("System.Collections.Stack") ' создаем объект класса «стек» Do Until objFile.AtEndOfStream a.push objFile.ReadLine ' добавляем строку в стек Loop objFile.Close Set objFile = FSO.OpenTextFile(Filename$, 2) Do Until a.Count = 0 objFile.WriteLine a.pop ' извлекаем строку из стека Loop objFile.Close End Sub
CreateObject("System.Collections.ArrayList")
http://www.ozgrid.com/forum/showthread.php?t=167349
Шифрование SHA1
CreateObject("System.Security.Cryptography.HMACSHA1")
http://www.mcpher.com/Home/excelquirks/getmaps/apikeys
Шифрование MD5
http://excelvba.ru/code/MD5
Комментарии
Стек в отладчике показывает только последние 5-й строк из примера, хотя читает нормально.
Отправить комментарий