Communauté Francophone AutoIt
https://autoitscript.fr/forum/
Et ouai, c'est un de mes talents naturelsmikell a écrit :Bienvenue au clubjchd a écrit :Argh !
... un peu usant pour les nerfs
Le fait est qu'un petit tutoriel sur le sujet serait une super idéejchd a écrit :Bon je veux bien te faire un schéma SQLite quand j'aurai 5 minutes
Ouai, je suis bien d'accordmikell a écrit :Le fait est qu'un petit tutoriel sur le sujet serait une super idée
Quelle chose ?jchd a écrit :Tant que tu n'es pas enclin à rendre CETTE CHOSE publique, rien n'est possible.
Code : Tout sélectionner
Func extendedIniRead($filename, $section, $key)
Local $value = IniRead($filename, $section, $key, "#")
If $value = "#" Then
Return ""
ElseIf StringRight($value,1) = "#" Then
$value = StringTrimRight($value,1) & extendedIniRead($filename, $section, $key&"_more")
EndIf
Return StringReplace($value,"\n",@CRLF,0,2)
EndFunc
Func extendedIniWrite($filename, $section, $key, $value)
Local $valueToSet = StringReplace($value,@CRLF,"\n",0,2), $mark = "#"
IniDelete($filename, $section, $key&"_more")
If StringLen($valueToSet)>1000 Then
extendedIniWrite($filename, $section, $key&"_more", StringTrimLeft($valueToSet,1000))
Else
$mark = ""
EndIf
IniWrite($filename, $section, $key, StringLeft($valueToSet, 1000)&$mark)
EndFuncHum... Fais gaffe ça peut s'apparenter à de la fainéantise de bas étage là... ^^ZDS a écrit :l'algo est là, utilise un peu ta matière grise TT22
Code : Tout sélectionner
[section]
clef=valeur de la ligne n°1\nvaleur de la ligne n°2\nvaleur de la #
clef_more=ligne n°3\nvaleur de la ligne n°4\n(antislash+n pour un #
clef_more_more=retour-chariot\net # en fin de ligne pour dire qu'#
clef_more_more_more=il y a une suite.Code : Tout sélectionner
Func extendedIniRead($filename, $section, $key)
Local $value = IniRead($filename, $section, $key, "#")
If $value = "#" Then
Return ""
ElseIf StringRight($value,1) = "#" Then
$value = StringTrimRight($value,1) & extendedIniRead($filename, $section, $key&"_more")
EndIf
Return StringReplace($value,"\n",@CRLF,0,2)
EndFunc
Func extendedIniWrite($filename, $section, $key, $value)
Local $valueToSet = StringReplace($value,@CRLF,"\n",0,2), $mark = "#"
IniDelete($filename, $section, $key&"_more")
If StringLen($valueToSet)>1000 Then
extendedIniWrite($filename, $section, $key&"_more", StringTrimLeft($valueToSet,1000))
Else
$mark = ""
EndIf
IniWrite($filename, $section, $key, StringLeft($valueToSet, 1000)&$mark)
EndFunc
Local $str = extendedIniRead("c:\test.ini", "section", "clef")
ConsoleWrite('{'&@CRLF&$str&@CRLF&'}'&@CRLF)Code : Tout sélectionner
>"C:\Program Files\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\******\IniAndLineFeed.au3" /autoit3dir "C:\Program Files\AutoIt3" /UserParams
+>14:09:14 Starting AutoIt3Wrapper v.2.0.1.24 Environment(Language:0409 Keyboard:0000040C OS:WIN_XP/Service Pack 3 CPU:X64 OS:X86)
>Running AU3Check (1.54.19.0) from:C:\Program Files\AutoIt3
+>14:09:14 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Program Files\AutoIt3\autoit3.exe "C:\******\IniAndLineFeed.au3"
{
valeur de la ligne n°1
valeur de la ligne n°2
valeur de la ligne n°3
valeur de la ligne n°4
(antislash+n pour un retour-chariot
et # en fin de ligne pour dire qu'il y a une suite.
}
+>14:09:14 AutoIT3.exe ended.rc:0
>Exit code: 0 Time: 1.902C'est pas de la fainéantise mais j'avais pas bien compris tes histoires de \n et de #ZDS a écrit :Hum... Fais gaffe ça peut s'apparenter à de la fainéantise de bas étage là... ^^
