Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige