PDA

Vollständige Version anzeigen : INI-Datei zur späteren Verwendung in Collection einlesen


Novos
04.01.2006, 15:46
Nachdem wir schon des öfteren viel Zeit durch dieses Forum sparen konnten, hier auch mal ein kleiner Beitrag von uns.
Durch diese Funktion wird eine INI-Datei zur späteren Verwendung in eine Collection eingelesen, die INI-Datei hat folgendes Format:

testvar1=mysql
testvar2=192.168.1.2
testport=3306

Diese Funktion sollte beim Start des Programmes aufgerufen werden:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Option</span> <span class="TOKEN">Compare</span> <span class="TOKEN">Database</span>
<span class="TOKEN">Public</span> setup_ini <span class="TOKEN">As</span> <span class="TOKEN">Collection</span>
<span class="TOKEN">Public Function</span> common_lese_ini()
<span class="TOKEN">Dim</span> fs, a, ts, f
<span class="TOKEN">Dim</span> ue_str, wert, schluessel <span class="TOKEN">As</span> <span class="TOKEN">String</span>
<span class="TOKEN">Dim</span> i <span class="TOKEN">As</span> <span class="TOKEN">Integer</span>
<span class="TOKEN">Dim</span> temp_col <span class="TOKEN">As</span> <span class="TOKEN">New</span> <span class="TOKEN">Collection</span>
&nbsp;
<span class="TOKEN">Set</span> fs = CreateObject(&quot;Scripting.FileSystemObject&quot;)
<span class="REM"> 'Position der Inidatei, hier im Projektpfad die Datei setup.ini</span>
<span class="TOKEN">Set</span> f = fs.GetFile(CurrentProject.Path &amp; &quot;\setup.ini&quot;)
<span class="TOKEN">Set</span> ts = f.OpenAsTextStream(1, -2)
&nbsp;
<span class="TOKEN">Do</span> <span class="TOKEN">While</span> ts.AtEndOfStream &lt;&gt; <span class="TOKEN">True</span>
ue_str = ts.ReadLine
<span class="TOKEN">For</span> i = 1 <span class="TOKEN">To</span> Len(ue_str)
<span class="TOKEN">If</span> Mid(ue_str, i, 1) = &quot;=&quot; <span class="TOKEN">Then</span>
schluessel = Mid(ue_str, i + 1, Len(ue_str) - i + 1)
wert = Mid(ue_str, 1, i - 1)
<span class="TOKEN">Call</span> temp_col.Add(schluessel, wert)
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
<span class="TOKEN">Next</span> i
<span class="TOKEN">Loop</span>
ts.Close
<span class="TOKEN">Set</span> setup_ini = temp_col
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Zur späteren Verwendung wird einfach folgendes verwendet:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Function</span> ausgabetest()
MsgBox setup_ini(&quot;testvar1&quot;)
<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Viel Spass damit
Benjamin Leuchter, Patrick Mantel