Макросы VBA, использующие .NET Framework

В данной статье приведены макросы, работающие только при установленном .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

Комментарии

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
         _____            __          __  __
___ |___ | _ __ / _| _ __ \ \/ /
/ __| / / | '_ \ | |_ | '_ \ \ /
| (__ / / | |_) | | _| | |_) | / \
\___| /_/ | .__/ |_| | .__/ /_/\_\
|_| |_|
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.