Главная » Макросы для Excel » Макросы VBA, использующие .NET Framework

Макросы 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

  • 5642 просмотра

Комментарии

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

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

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

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