Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable in TXT und wieder abrufen

Variable in TXT und wieder abrufen
16.11.2021 13:36:06
Hannes
Hallo Gemeinde,
kann mir jemand auf die Sprünge helfen.... WIe speichere ich eine Variable in einer TXT Datei als einzelnes Wort ab und wie kann ich es wieder aus der TXT Datei abrufen und in eine Variable bringen?
TXT soll heissen Beispiel.txt Inhalt soll meine Variable sUser sein
Danke schon für die Hilfe

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable in TXT und wieder abrufen
16.11.2021 13:47:02
ChrisL
Hi Hannes
Im Internet nichts zum Thema gefunden? ;)

Public Const strFile As String = "C:\Pfad\MeineDatei.TXT"


Sub speichern()
Open strFile For Output As #1
Print #1, "Dummy-Variable"
Close #1
End Sub


Sub aufrufen()
Dim s As String
Open strFile For Input As #1
Line Input #1, s
MsgBox s
Close #1
End Sub
cu
Chris
AW: Variable in TXT und wieder abrufen
16.11.2021 16:24:57
Hannes
Doch das schon, ich hatte auch schon einen Code... Nur leider war da irgendwas mit dem Auslesen oder abspeichern, was mir nicht den Wert brachte, den ich eigentlich abgespeidchert hatte. Deiner funktioniert blendend, ging auf Anhieb.
Vielen lieben Dank.

Public Function ReadFile(ByVal sFilename As String) _
As String
Dim f As Integer
Dim sInhalt As String
If Dir$(sFilename, vbNormal)  "" Then
' Datei im Binärmodus öffnen
f = FreeFile: Open sFilename For Binary As #f
' Größe ermitteln und Variable entsprechend mit Leerzeichen füllen
sInhalt = Space$(LOF(f))
Get #f, , sInhalt
Close #f
End If
ReadFile = sInhalt
End Function

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige