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-арт.

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

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