Что нового

IniString UDF - Библиотека обработки данных структуры ini-файлов

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 242
Репутация
2 344
AutoIt: 3.3.4.0
Версия: 1.0

Категория: Данные

Описание: Библиотека для обработки данных, имеющие структуру ini-файлов.
Очень полезно если нужно обработать полученные с интернета данные, это позволяет обойтись без сохранения файла на диск и его последующего чтения используя Ini* функций.

Код/Пример:
Код:
;#include <Inet.au3>
#include <Array.au3>
#include "IniString.au3"

$sSource_Mem_Ini = InetRead("http://www.autoitscript.com/autoit3/files/beta/update.dat", 1+2+16) ;remove 16 on slow connection
;$sSource_Mem_Ini = _InetGetSource("http://www.autoitscript.com/autoit3/files/beta/update.dat")
;$sSource_Mem_Ini = FileRead(@ScriptDir & "\AutoIt.dat") ;read in ini from saved file

$sSource_Mem_Ini = BinaryToString($sSource_Mem_Ini)

;============ _IniString_Read - Example ============
$sIniRead = _IniString_Read($sSource_Mem_Ini, "AutoIt", "FileSize", "NotFound")

$iOk = MsgBox(4096+ 65, "_IniString_Read: [AutoIt] - filesize", _
	StringFormat("Sample of reading a key value from a section:\n\nFileSize=%s", $sIniRead))
If $iOk <> 1 Then Exit
;============ _IniString_Read - Example ============


;============ _IniString_ReadSectionNames - Example ============
$iOk = MsgBox(4096+ 65, "_IniString_ReadSectionNames", "Sample of reading all section names into an array...")
If $iOk <> 1 Then Exit
$aReadSectionNames = _IniString_ReadSectionNames($sSource_Mem_Ini)

If @error Then
	MsgBox(4096 + 48, "_IniString_ReadSectionNames - Error", "Error occurred, probably no sections.")
Else
	_ArrayDisplay($aReadSectionNames, "Section Names - Results")
EndIf
;============ _IniString_ReadSectionNames - Example ============


;============ _IniString_ReadSection - Example ============
$iOk = MsgBox(4096+ 65, "_IniString_ReadSection - [AutoitBeta]", _
	"Sample of reading all key/value pairs from a section into an aray...")
If $iOk <> 1 Then Exit
$aReadSection = _IniString_ReadSection($sSource_Mem_Ini, "AutoItBeta")

If @error Then
	MsgBox(4096 + 48, "_IniString_ReadSection - Error", "Error occurred, probably no INI section.")
Else
	_ArrayDisplay($aReadSection, "Read Section - [AutoItBeta]")
EndIf
;============ _IniString_ReadSection - Example ============


;============ _IniString_RenameSection - Example ============
$sByRef_Mem_Ini = $sSource_Mem_Ini
If _IniString_RenameSection($sByRef_Mem_Ini, "AutoItBeta", "AutoIt_RC") then ; :)
	$iOk = MsgBox(4096+ 65, "_IniString_RenameSection - Results", _
		StringFormat("Sample of renaming section.\nThe ''[AutoItBeta]'' section renamed..." & _
		"\n\nBEFORE:\n=======\n%s\n\nAFTER:\n======\n%s", $sSource_Mem_Ini, $sByRef_Mem_Ini))
	If $iOk <> 1 Then Exit
Else
	MsgBox(4096 + 48, "_IniString_RenameSection - Error", "Error occurred, probably no INI section.")
EndIf
;============ _IniString_RenameSection - Example ============


;============ _IniString_Delete - Example ============
$sByRef_Mem_Ini = $sSource_Mem_Ini
_IniString_Delete($sByRef_Mem_Ini, "AutoIt", "index")

$iOk = MsgBox(4096+ 65, "_IniString_Delete - Results", _
	StringFormat("Sample of deleting a key/value pair from a section.\n" & _
	"The ''index'' key has been deleted from the ''[AutoIt]'' section...\n\nBEFORE:\n=======\n%s\n\nAFTER:\n======\n%s", _
	$sSource_Mem_Ini, $sByRef_Mem_Ini))
If $iOk <> 1 Then Exit
;============ _IniString_Delete - Example ============


;============ _IniString_Delete (Section) - Example ============
$sByRef_Mem_Ini = $sSource_Mem_Ini
_IniString_Delete($sByRef_Mem_Ini, "AutoItBeta")

$iOk = MsgBox(4096+ 65, "_IniString_Delete (Section) - Results", _
	StringFormat("Sample of deleting an entire section.\nThe ''[AutoitBeta]'' section has been deleted" & _
	"...\n\nBEFORE:\n=======\n%s\n\nAFTER:\n======\n%s", $sSource_Mem_Ini, $sByRef_Mem_Ini))
If $iOk <> 1 Then Exit
;============ _IniString_Delete (Section) - Example ============


;============ _IniString_Write - Example ============
$sByRef_Mem_Ini = $sSource_Mem_Ini
_IniString_Write($sByRef_Mem_Ini, "AutoIt","filetime","Some other time value ! ! ! !") ; rewrite existing key
_IniString_Write($sByRef_Mem_Ini, "AutoIt","downloads","2,145,637 ! ! ! !") ; write new key in existing section
_IniString_Write($sByRef_Mem_Ini, "AutoIt New", "KEY", "Some Value In <AutoIt New> Section ! ! ! !") ; write new key in new section

$iOk = MsgBox(4096+ 65, "_IniString_Write - Results", _
	StringFormat("Sample of writing to keys/sections.\nThe ''filetime'' key is re-wriiten in the ''[AutoIt]'' section,\n" & _
		"a new ''downloads'' key is written to the ''[AutoIt]'' section,\n" & _
		"and a new key is written to the new ''[AutoIt New]'' section...\n\nBEFORE:\n=======\n%s\n\nAFTER:\n======\n%s", _
		$sSource_Mem_Ini, $sByRef_Mem_Ini))
If $iOk <> 1 Then Exit
;============ _IniString_Write - Example ============


;============ _IniString_WriteSection - (rewrite, with @LF delimited string) Example ============
$sByRef_Mem_Ini = $sSource_Mem_Ini
$sData = "Key1=Value1" & @LF & "Key2=Value2" & @LF & "Key3=Value3"

_IniString_WriteSection($sByRef_Mem_Ini, "AutoIT", $sData)
$iOk = MsgBox(4096+ 65, "_IniString_WriteSection - Results", _
	StringFormat("Sample of writing whole section to existing section (overwite).\n" & _
	"The ''[AutoIt]'' section is overwritten using an @LF delimited list...\n\nBEFORE:\n" & _
	"=======\n%s\n\nAFTER:\n======\n%s", $sSource_Mem_Ini, $sByRef_Mem_Ini))
If $iOk <> 1 Then Exit
;============ _IniString_WriteSection - (rewrite, with @LF delimited string) Example ============


;============ _IniString_WriteSection - (new, with array) Example ============
$sByRef_Mem_Ini = $sSource_Mem_Ini
Dim $aData2[3][2] = [["FirstKey", "FirstValue"],["SecondKey", "SecondValue"],["ThirdKey", "ThirdValue"]]
; Since the array we made starts at element 0, we need to tell _IniString_WriteSection() to start writing from element 0.
_IniString_WriteSection($sByRef_Mem_Ini, "AutoIt 4", $aData2 ,0)

$iOk = MsgBox(4096+ 65, "_IniString_WriteSection - Results", _
	StringFormat("Sample of writing whole new section.\nThe new ''[AutoIt 4]'' Using an 2D array as data passed to function..." & _
	"\n\nBEFORE:\n=======\n%s\n\nAFTER:\n======\n%s", $sSource_Mem_Ini, $sByRef_Mem_Ini))
If $iOk <> 1 Then Exit
;============ _IniString_WriteSection - (new, with array) Example ============

Файл: IniString UDF

История версий:
v1.0
Первый выпуск.

Источник: http://www.autoitscript.com/forum/index.php?showtopic=72690
Автор(ы): ResNullius, MrCreatoR
 
Верх