Smilla

Hallo, danke für eure super Hilfe bisher immer, hab jetzt ein neues Problem: Function OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("U:\LisaJ_Scripte\adresse.txt", ForReading, True) End Function Sehe ich das richtig, das sich die Datei öffnen müsste? Warum klappt das nicht? Wo liegt der Fehler? :confused: (Auf meine Fragen wegen dem Array komme ich später wieder zurück, ich hab mir meinen Programmablauf nur jetzt besser strukturiert und mache das ganze Schritt für Schritt bis zum Ziel! )

OK aber was muss ich dann ändern bzw. erweitern damit das klappt? Und für was brauche ich den Wert?

Damit sage ich ja das die Variable arrAdresse eine Array sein soll der Größe (10,6) oder? arrAdresse = Array(10,6) Und hier sage ich was in die einzelnen Felder des Array arrAdresse rein soll?! arrAdresse(0,0) = "Name" arrAdresse(0,1) = "Nachname" arrAdresse(0,2) = "strasse" arrAdresse(0,3) = "Plz" arrAdresse(0,4) = "Ort" arrAdresse(0,5) = "Telefonnummer" Und hier sage ich das in den arrAdresse das Name, Nachname, usw. reinsoll... hmmm... das kann ja nicht gehen oder?! :confused: Liegt hier der Fehler? Muss ich vielleicht die Zeile einfach rauswerfen?? arrAdresse(Name & ";" & Nachname & ";" & Strasse & ";" & Plz & ";" & Ort & ";" & Telefonnummer) Heut ist nicht mein Tag, heut abend kann ich mich glaub abgeben...

kann deiner Antwort leider grad geistig nicht ganz folgen... bin etwas neben mir Also die Variablen Name usw. sind die Eingaben aus den Inputboxen die ich weiter oben in meinem Script habe, diese fragen die gesammten Daten ab. Von daher greife ich eigentlich nur auf vorhandene Elemente zu, oder?

Das soll der Array sein, so das man ihn hinter her aufsplitten kann (müsste ja irgend ne Funktion "split" oder so geben) und nach einzelnen Teilen suchen kann.

Ich will eigentlich nur auf (0,0) (0,1) (0,2) (0,3) (0,4) (0,5) zugreifen, die müssten wenn ich das richtig blicke hier eigentlich in (10,6) enthalten sein oder?

Entweder bin ich heut ganz blöd oder aber... keine Ahnung! Ich find da nicht direkt was über Arrays in dem langen Text!

Habs jetzt mit (10,6). Bekomme aber immer folgende Fehlermeldung Laufzeitfehler in Microsoft VBScript: Index außerhalb des gültigen Bereichs

Danke Bei der Vorderen Zahl das weiß ich selber nicht genau, ich nehm halt mal 10 zum testen Wie wird ein array dann ausgelesen/ausgegeben? Danke schonmal für eure bisherige super Hilfe! ))) *knuddel*

@Melkor: Danke! Ich brauche waagerecht 6 Felder! Senkrecht weiß ich es nicht! Wenn ich 6 Felder brauche muss ich dann 5 eintragen, weil die 0 ja mitzählt? Ist die erste zahl für waagerecht und die 2. zahl für senkrecht oder wie? :confused:

@Melkor: Was muss denn dann anstelle von (0,0) da hin? @jasso: Ich scripte mit VBScript, nicht VB.net

:confused: Ich finde auch über google nix brauchbares im Bezug auf Arrays Das ist mal mein Code: 'Array arrAdresse = Array(0,0) arrAdresse(0,0) = "Name" arrAdresse(0,1) = "Nachname" arrAdresse(0,2) = "strasse" arrAdresse(0,3) = "Plz" arrAdresse(0,4) = "Ort" arrAdresse(0,5) = "Telefonnummer" arrAdresse(Name & ";" & Nachname & ";" & Strasse & ";" & plz & ";" & Ort & ";" & Telefonnummer) Geht um ne Adressverwaltung aus der gesucht werden soll Was ist überhaupt der gültige Index bei Arrays? Da kommt immer das das außerhalb liegt? Wie kann ich das Array Zeile für Zeile auslesen lassen? Wie wird das ausgegeben??:confused:

Sorry für die Verwirrung, habe das wohl falsch verstanden. Also ich muss da erst ein Array bauen, dann Zeile für Zeile lesen irgendwie und dann halt splitten und nach dem Baustein (z.b. nachname) suchen... so ganz hab ichs auch noch nicht geblickt...:confused: *Erst mal über Array´s informier* :

mal ein ausschnitt: Ich hab mal versucht die Suchfunktion mit If-Schleifen zu machen... Also die Variable Nachname ist definiert, habs nur hier nichtmehr mit in dem Ausschnitt drin! Da wo ich rot markiert habe, weiß ich nicht was da rein soll :confused: suche = InputBox ("Nach was wollen sie suchen? (Nachname, PLZ oder Ort)" , "Suchfunktion") 'Suche nach Nachname Do If suche = "Nachname" Then [COLOR="Red"]Set write = fso.OpenTextFile (NachnameFile, 8,True) write.WriteLine(Nachname) write.close[/COLOR] End If Loop 'Suche nach PLZ ' Do ' If suche = "PLZ" Then ' WScript.Echo (Plz) ' End If ' Loop ' ' 'Suche nach Ort ' Do ' If suche = "Ort" Then ' WScript.Echo (Ort) ' End If ' Loop

Kann mir jemand noch weiterhelfen wegen der Suchfunktion über die Textdatei? Komme damit einfach nicht weiter! Danke!

Danke! Hab erst nach erstellen des Beitrags das passende Forum entdeckt, da wars schon zu spät!

Wir haben am Anfang von unserem Ausbilder gesagt bekommen das es bei uns in der Firma die meisten mit dem PC schreiben, wir könnten das ruhig genauso machen! Von dem her erübrigt sich in meinem Fall die Frage bei der IHK, weil bei denen ausm 2. und 3. ists ja auch so oK und bei allen früheren wars das auch Wir haben da auch eine extra Vorlage dafür!

@Landaley: Ich machs eigentlich auch so Im momment programmiere ich mit VBScript. Ich schreibe im Berichtsheft dann so (Beispiel) :

Also das erste mit dem LEN, das verstehe ich! Das probier ich mal! Aber das zweite mit der Funktion kapiere ich nicht ganz! Über Google hab ich auch nicht wirklich was gefunden! Aber ich such nochmal nach sequentiellen datendateien

Brauche schnelle Hilfe: Ich habe folgende Aufgabe, ich soll mit VBScript ein Adresssystem programmieren wo man erst seinen Namen und Adresse eingibt (inputbox). OK das hab ich Dann soll jeweils aber geprüft werden ob auch Daten eingegeben wurden in die Inputbox und desweiteren soll die Textdatei in der die Daten gespeichert werden, durchsucht werden können! Wie mache ich das?!?

Wie macht ihr es? Schreibt ihr das Berichtsheft von Hand oder am PC? Bei uns ist es üblich am PC zu schreiben, würd mich einfach mal interessieren wie es bei anderen so gehandhabt wird!

Also wir müssen im Betrieb und in der Berufschule Berichtsheft führen! Bin übrigens aus Baden Württemberg!

Wie es bei mir in der Klasse sein wird weiß ich noch nicht, aber im Betrieb bin ich die einzige bis auf ein paar die aber im anderen Gebäude sitzen und in der Organisation tätig sind Bin die einzig produktive Frau

Ich mein, Tags schließen und so muss er ja gar nicht unbedingt aber zumndest die verschiedenen "Sorten" farbig z.B. unterschiedlich machen, oder so halt, das das übersichtlicher wird. Sollte halt etwas anspruchsvoller sein als der normale Windows Editor ;-) Wo hast du deinen her? Auch downgeloaded? Freeware?

Ich habe am 1.9. meine Ausbildung angefangen, als einzige Frau hier