mail mail
Нужен макрос для Excel?
Сделайте заказ прямо сейчас!
Ищете готовое решение?
Выбирайте и покупайте!
У вас есть интернет-магазин?
Настроим парсер под любой сайт!

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

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

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