MyTetra Share
Делитесь знаниями!
Макросы VBA, использующие .NET Framework
31.12.2017
17:17
Текстовые метки: .Net,Framework,Средства Windows
Раздел: VBA - Средства Windows

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

 
MyTetra Share v.0.52
Яндекс индекс цитирования