Datei öffnen mit Open in VBS

Computer: Software & Programmierung Visual Basic
#1

Hallo Wissende,

ich habe mir wegen der Anfrage im Programmierbrett von Zoos eine vbs
geschrieben:

open "K:\token.txt" for input as #1
 while not eof(1)
 input #1,Satz
 msgbox Satz
 wend
close #1

die erste Zeile wird bemeckert, Anweisungsende erwartet beim 21.ten Zeichen :frowning:
Aufgrund von Internetrecherche habe ich mehrere Varianten der
Benutzung von #1 oder 1 durchgespielt, irgendwie liegt es nicht
daran oder ich habe eine Variante vergessen.
Und auch die angezeigte 21 deutet nicht unbedingt auf diesen
Fehlergrund hin.

Danke ^ Gruß
Reinhard

#2

Hi,

ich habe mir wegen der Anfrage im Programmierbrett von Zoos
eine vbs
geschrieben:

open „K:\token.txt“ for input as #1
while not eof(1)
input #1,Satz
msgbox Satz
wend
close #1

VBS kann das Open nicht. Das geht in VB6 und VBA aber nicht in VBS.

Mach’s so:

Set fso = CreateObject("Scripting.FileSystemObject")
Set Datei = fso.getFile("C:\Users\Ich\Desktop\Test.txt")
Set Datei = Datei.OpenAsTextStream(1)

Do While Not Datei.AtEndOfStream
 Zeile = Datei.readLine
 MsgBox Zeile
Loop

Gruß Rainer

#3

Hallo Rainer,

VBS kann das Open nicht.

danke, mit dieser klaren Auskunft ist das Problem für mich gelöst.
Jaaaaa, ich weiß von dir es gibt da diese Datei mit 56 im Namen.
Da habe ich nicht nachgeschaut, ich glaub die verstaubt in meinem Rechner:smile:

Zugegeben, als ich die Anfrage stellte dachte ich schon an dich.
Und habe es mir bequem gemacht, Anfrage stellen und schauen was
Rainer dazu sagt :smile:
Du hast wie erwartet/erhofft prompt geantwortet.
Frag mal im Excelbrett an, dann geschieht ähnliches :smile:

Aber ich bin per se keine faule Socke die andere benutzt.
Selbstverständlich habe ich vorher im Inernet recherchiert.
Dabei wiedermal bitterlich geweint daß Google das Pluszeichen
abgeschafft hat
Noch bis vor paar Jahren konnte man so googlen:
+vbs +open +input
und es kamen nur Treffer die beides beinhalteten.

Das haben die Dösbuttel leider abgeschafft und bei
vbs open input
kommt alles mögliche, vb vba qbasic usw. :frowning:

Und die Treffer, naja, die ersten 2 Seiten habe ich fleißig
durchgeschaut dann hatte ich keinen Bock mehr und ich fragte hier an.

Mach’s so:

Danke für den Code, mein Anliegen war ja nur zu klären wie man mit
Open in VBS eine Datei öffnet.
Das ist geklärt.

Das „Problem“ des Anfragers im anderen Brett klärt sich dort
oder auch nicht.

Gut’s Nächtle
Reinhard

#4

Hallo Reinhard,

Zugegeben, als ich die Anfrage stellte dachte ich schon an
dich.
Und habe es mir bequem gemacht, Anfrage stellen und schauen
was
Rainer dazu sagt :smile:

das ist ja auch richtig so. :smile: Bei Problemen mit Excel-VBA würde ich als Erstes Dich fragen. Das geht einfach schneller …

Gruß Rainer

#5

hallo Rainer,

Bei Problemen mit Excel-VBA
würde ich als Erstes Dich fragen.

mach mal, dann kann ich versuchen zu revanchieren für die viele Hilfe
von dir

Das geht einfach schneller

seh ich genauso.
Beispiel, im Html-Brett oder wie das heißt fragte ich mal an
weil ich mit Excel-Vba „etwas“ mit html-Webseiten machen wollte.
War nix dolles, für jeden html-Könner ein Klacks.

In der Anfrage habe ich gleich dazu geschrieben daß ich nicht das
geringste Interesse habe mir selfhtml.org „reinzuziehen“.
ABER, ich habe auch dazu geschrieben was Geben und Nehmen bedeutet,
und zum „Geben“ darum gebeten mal ins Brett Tabellenkalkulation
zu schauen.

Siehe da, ich bekam nicht rtfm zur Antwort sondern jmd. mit
html-Kenntnissen hat das ruckzuck gelöst.
Wie du sagst, es ging einfach schneller.

Gut’s Nächtle
Reinhard