Visual Basic Script – die meistgelesenen Beiträge

Hallo ich habe ein Programm. Ja ach ne XD

Ich rechne dort die Prozente u.s.w. aus und hat auch alles geklappt. Nur jetzt hat man 36 Punkte und das Programm hat gerechnet, dass ab 36,40 eine 3 hat und bis zu 35,40 eine Vier. Nun möchte ich das runden uzwar so: 4.48 = 5, 4.2 = 4 u.s.w.

Dass heißt wenn es eine Nachkommastelle gibt das es auf ...,5 rundet.

Hallo Leute,

ich hätte ein kleines Vorhaben.

Ich möchte eine VBS-Datei schreiben.

Es soll so ablaufen:

1. Man gibt ein Wort ein, nach dem in einer Word-Datei (wenn's nicht geht, dann .txt) gesucht wird.
2. Es wird die gesamte Zeile, in der das Wort steht, ausgegeben.
3. Es wird die darauf folgende Zeile ausgegeben.

Ist eigentlich mega simpel, aber ich krieg es nicht auf die Reihe.

Für Lösungsansätz, Denkanstöße und Lösungen wäre ich dankbar. =)

MfG,

Arthur

Hallo,

Ich möchte ein Vb Script erstellen, mit dem ich daten aus einem PHP Auftragsformular in eine Textdatei schreiben kann die automatisch im Dateinamen das aktuelle Datum hat und automatisch via FileZilla auf meinen FTP Server hochgeladen wird.

Den Teil bei dem ich die Daten eintrage habe ich schon kommt zwar eine Fehlermeldung aber es läuft...jetzt möchte ich, dass die Datei automatisch mit dem aktuellen Datum versehen und hochgeladen wird.

Hat da jemand etwas greifbar oder möchte mir was schreiben?

Bin am verzweifeln

Danke im vorraus Wieland

Wie kann ich mit Linux Windows Programme schreiben mit VBS und batch,? Gibt es vielleicht etwas Ressourcen sparenderes als eine ganze VM

Ich schreibe VBS und habe nun eine Fehlermeldung:

 Set oFile = fso.OpenTextFile("D:/lpX32/NomenMitEndungen/Tests/"&UCase(Name)&"_TEST.txt",2,true)

Was mache ich falsch?

Wie kann ich in VBS per Befehl den Mauszeiger auf eine Koordinate schicken und dann einen Klick ausführen?

Bin anfänger als bitte nicht sagen: "ja du musst den String durch die Variable ersetzen bla bla bla..." also wäre schon mit dem Richtigen Code :)

Wenn ich Wörter zählen möchte mache ich das in Kopf was ein bisschen doof wird wenn man so um die 300 - 400 Wörter zählen muss. Dann kam mir die Idee: Wenn ich ein Wort gezählt habe haue ich einmal auf die Leertaste/eine Taste. Am Schluss drücke ich Enter und mein Programm soll zählen wie viele Zeichen ich eingegeben hab. Wie würde das gehen?

Worte = InputBox("Gib einfach Buchstaben und leerstellen ein und diese Werden dann gezählt!","Wörter zählen")

'Hier Wörter zählen

'_____________________________________________


'_____________________________________________

msgbox ""&Anzahl&" Wörter",0+64,"Wörter gezählt"
'Ende

î hier eine kleine Vorgabe ;)

Ich schreibe zur Zeit ein Programm und dieses soll sich selber auslesen, wie viele Zeilen das Programm selber hat. Geht dies und wenn ja, wie?

Hallo Leute,

ich Programmiere ja VBScript und habe jetzt eine Fehlermeldung und kriege diese nicht behoben:

 Set fso = CreateObject("Scripting.FileSystemObject")

sl = InputBox("Wieviele Schüler sollten den Test machen?","")

'Gibt es eine "& sl &"ste Datei?

If fso.FileExists("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt") Then

Do until Sl="0"

Set oFile = fso.OpenTextFile("D:\Lernprogrammmi\NomenMitEndungen\Tests\Temp\"& sl &".txt")

msgbox oFile.ReadLine

sl=sl-1

loop

Das Programm sollte in einer msgbox die Datei öffnen und danach auch die Dateien die unter der eingegebenen Zahl liegen öffnen und das bis null. Nun steht aber in dieser Zeile: "msgbox oFile.ReadLine" ein Fehler:

Eingabe hinter Dateiende

Kann mir da jemand helfen?

Außerdem möchte ich dass Alle Dateien in einer Abgespeichert werden aber so wie ich das erfahren habe klappt das nicht. Denn dann kreuzen sich zwei oFile's.

Guten Tag,

ich habe eine VBS-Datei, die die Fakultät einer Zahl berechnen und diese dann in einer MsgBox ausgeben soll.

Momentan habe ich das:

---

dim i

i = InputBox("Bitte geben sie eine Zahl ein", "Fakultaet")

Do while i = 1

i = i(i - 1)

loop

MsgBox "Die Fakultät deiner Zahl ist: " & i , 0, "Fakultaet"

---

Allerdings zeigt mit die MsgBox das alte i an und nicht das neue.

Was kann man tun, damit die Fakultät von i angezeigt wird?

Ich weiß, dass VBS sich dafür eher weniger eignet, aber aus diversen Gründen muss es VBS sein.

Für hilfreiche Antworten wäre ich sehr dankbar. =)

Ich habe versucht da so ein Programm in VBS zu coden aber mir ist da irgendein Fehler unterlaufen. Kann mir da wer helfen diesen Fehler zu beheben? Das Programm soll einen Satz sagen (mit Stimme), ein Fenster öffnen wo man eine Website eingibt und diese dann öffnen. Hier ist der Code:

set STIMME=createobject("sapi.voice")

STIMME.speak("Bitte nenne den Namen der Website die du öffnen willst!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

set WSITE=createobject("wscript.shell")

DO

If Website = "" Then

STIMME.speak("Website nicht gefunden. Bitte versuche es erneut!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

Else

STIMME.speak("Loading " & WEBSITE & ".com")

set WSITE=createobject("wscript.shell")

WSITE.run "http://www. " & WEBSITE & ".com")

STIMME.speak("Website wurde geladen!")

exit do

Loop

Helluw

Wie vielleicht einige wissen, gibt es das Skript Visual Basic Skript.

Ich versuche momentan damit etwas zu Programmieren, und bei dem sollte das vorkommen:

_________________________________________

-Hintergrundbild wechsel

-Ladebalken/Progressbar

_________________________________________

Über Google habe ich nichts darüber herausgefunden, wie man mit VBS das Hintergrundbild wechseln kann. Das Programm soll den Hintergrund verändern, damit es zu der Atmosphäre passt :3 . Den Ladebalken konnte ich zwar mit Visual Studio Express 2010 erstellen, jedoch weiß ich nicht wie ich ihn in eine VBS Datei einfügen kann, bzw. wie ich es Programmiere dass es die Visual Studio Express Datei auch ausführt...

Für alle die es intressiert:

ich Programmiere einen "Fake Virus", der keinen Schaden anrichtet, und nur dazu da ist andere zu erschrecken .

Kann mir jemand Helfen?

:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3: