Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert aus ASCII-Datei Variablen zuweisen

Forumthread: Wert aus ASCII-Datei Variablen zuweisen

Wert aus ASCII-Datei Variablen zuweisen
09.03.2008 12:48:15
Günter
Hallo,
habt Ihr vielleicht für folgende Aufgabe eine Lösung:
Ich möchte beim Öffnen einer Excel-Datei aus einer ASCII-Datei (Bsp.ini), die in einem bestimmten Verzeichnis (z.B. c:\Test) liegt, einen String einer Variablen (INI_Str) zuweisen. In der Ascii-Datei steht nur eine Zeichenkombination z.B. "1234H56G" (ohne Anführungszeichen).
Danke im Voraus.
Gruß Günter

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert aus ASCII-Datei Variablen zuweisen
09.03.2008 13:04:57
Tino
Hallo,
hier mal ein Beispiel.
'*******in "DieseArbeitsmappe" als Code********************

Private Sub Workbook_Open()
Dim INI_Str As String
INI_Str = ZeileLesen(1, "C:\Test\Bsp.ini") 'Pfad und eventuell Zeilennummer anpassen
MsgBox INI_Str
End Sub


'*************in ein Modul**********************


Public Function ZeileLesen(ZeilenNr As Long, DateiPfad As String) As String
Dim DateiNr As Integer
Dim Zeile As String
Dim ZeilenNr2 As Long
DateiNr = FreeFile
Open DateiPfad For Input As #DateiNr
Do Until EOF(DateiNr)
Line Input #DateiNr, Zeile
ZeilenNr2 = ZeilenNr2 + 1
If ZeilenNr2 = ZeilenNr Then
ZeileLesen = Zeile
Close #DateiNr
Exit Function
End If
Loop
Close #DateiNr
End Function


Gruß
Tino

Anzeige
AW: Wert aus ASCII-Datei Variablen zuweisen
09.03.2008 13:13:00
ransi
Hallo Günther
Teste mal selber:
Option Explicit


Public Sub test()
Dim INI_Str
Dim Datei
Dim ff
ff = FreeFile
Datei = "C:/test/bsp.ini"
Open Datei For Input As #ff
Line Input #ff, INI_Str
Close #ff
MsgBox INI_Str
End Sub

ransi

Anzeige
AW: Wert aus ASCII-Datei Variablen zuweisen
09.03.2008 13:45:00
Volti
Hallo Günter,
beim Arbeiten mit klassischen Inidateien bietet sich folgender code an:
Declare 

Function GetPrivateProfileString Lib "KERNEL32.DLL" Alias "GetPrivateProfileStringA" ( _
lpApplicationName As String, lpKeyName As String, lpDefault As String, lpReturnedString As String, ByVal nSize As Long, lpFileName As String) As Long



Sub GetIni()
Dim Ini_STR As String
retval = GetPrivateProfileString("Parameter", "trace", "on", Ini_STR , 150, "c:\bscupdater\ _
reporting.ini")
MsgBox Ini_Str
End Sub



Inidateien sind in Sektoren und Schlüsseln aufgeteilt, also etwa so:

[Parameter]

trace=off

Im o.g. code bedeuten die Einträge von links folgendes:

Sektor, Schlüssel, Vorgabewert, Rückgabewertvariable, max. Länge der Rückgabewertes, Inidateiname

Hoffe, Du hattest das so gemeint.

viele Grüße

Karl-Heinz
Anzeige
AW: Wert aus ASCII-Datei Variablen zuweisen
09.03.2008 14:06:00
Günter
Hallo Zusammen,
Danke für eure Vorschläge.
Klappt prima!
Günter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige