Wert Iputbox (vbs-Datei) in .txt-Datei

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich glaube das ist ne komplizierte Sache. Ich habe scho gegooglet aber nichts gefunden.

Ich möchte das der Eigegebene Wert den ich in die Iputbox eingegeben habe auch so in einer Textdatei steht.

Falls es möglich wäre, wäre es gut wenn man den wert vorher och mit 60 duplizieren könnte.

Grüße
dnbma

#2

Hallo dnbma,
Ich glaube das ist gar nicht so schwer wie du glaubst, ich bin leider gerade am falschen gerät um ein ergebnis zu „kopieren“.
Es handelt sich um VBS also willst du die Text datei aus einer Office anwendung erstellen ?

melde mich später, oder morgen früh nochmal…
mfg jonny

#3

Hi jonny,

Ja so, oder aus einer VBS Datei. Den Wert den ich in eine Inputbox Datei eingebe soll in einer neu erstellten Text-Datei sein, bzw. mit 60 multipliziert werden und der Wert soll dann in einer Textdatei sein.

mfg
dnbma

#4

Was war doch gleich VBS ?
Egal ich hoffe du kannst damit etwas anfangen:

Dim wert1 As Integer 

wert1 = InputBox("Zahl eingeben:", "Zahl eingeben")
wert1 = wert1 \* 60
 
 ff = FreeFile
 Open "c:\Wert1.txt" For Output As #ff
 Print #ff, wert1
 Close #ff

Etwas Schönerfinde ich noch:

Dim wert1 As String
On Error GoTo falscheeingabe
wert1 = InputBox("Zahl eingeben:", "Zahl eingeben")
wert1 = wert1 \* 60

 ff = FreeFile
 Open App.Path & "\Wert1.txt" For Output As #ff
 Print #ff, wert1
 Close #ff

Exit Sub
falscheeingabe:
MsgBox "Es Wurde keine Zahl eingegeben!"

Es geht bestimmt noch besser, aber funktionieren sollte das schonmal

#5

Hallo,

Was war doch gleich VBS ?

eine .vbs-Datei ist ein „VBScript Script File“ also wenn ich eine Datei mit .vbs speichere.

Erst mal danke für die Antworten und Mühen.

Leider bekomme ich eine Fehlermeldung wenn ich die .vbs-Datei ausführe.

Fehler: Anweisungsende erwartet
Code: 800A0401
Quelle: Komplimierungsfehler in Microsoft VBScript

Grüße dnbma

#6

Hi Joe,

Was war doch gleich VBS ?

Visual Basic Script …

Egal ich hoffe du kannst damit etwas anfangen:

Dim wert1 As Integer

wert1 = InputBox(„Zahl eingeben:“, „Zahl eingeben“)
wert1 = wert1 * 60

ff = FreeFile
Open „c:\Wert1.txt“ For Output As #ff
Print #ff, wert1
Close #ff

… also die, na nenne ich es mal Programmiersprache, das Open nicht kennt. :smile: Du erinnerst Dich an FSO?

Etwas Schönerfinde ich noch:

Dim wert1 As String
On Error GoTo falscheeingabe
wert1 = InputBox(„Zahl eingeben:“, „Zahl eingeben“)
wert1 = wert1 * 60

ff = FreeFile
Open App.Path & „\Wert1.txt“ For Output As #ff
Print #ff, wert1
Close #ff

Exit Sub
falscheeingabe:
MsgBox „Es Wurde keine Zahl eingegeben!“

Es geht bestimmt noch besser, aber funktionieren sollte das
schonmal

Nein, mit VBS nicht. VBS kennt keine Datentypen, Dim a geht noch, beim ‚As‘ steigt VBS schon aus. :smile:

Gruß Rainer

#7

Hi,

Falls es möglich wäre, wäre es gut wenn man den wert vorher
noch mit 60 duplizieren könnte.

sorry, hat ein wenig gedauert, ich war müde. :smile:

Was meinst Du in dem Zusammenhang mit duplizieren? 60 mal den Wert in die Datei schreiben? Ich hab’s mal als multiplizieren interpretiert, das ist ja aber leicht zu ändern.

Gruß Rainer

Dim fso, f, txt
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\test.txt", 2, True)
txt = InputBox("Bitte eine Zahl eingeben", "Eingabefenster", 0)
If IsNumeric(txt) Then
 f.Write txt \* 60
Else
 MsgBox "Eine Zahl eingeben! Das war keine Zahl!"
End If
#8

Hallo Rainer,

Dannke! Genau so sollte es aussehen.

Gruß
dnbma