Terminator85

@ EvilNick Tut leider nicht irgendwie verflixt ?!?

Danke für die Hilfe aber so recht tut das leider noch nicht deshalb poste ich hiermal den kompleten Quelltext: Ich möchte eine Datei auslesen und zwar die scanview.txt und alle Backslash durch zwei Backslash's ersetzen Also aus C:\Windows C:\\Windows machen '************************************************ 'Text wird aus scanview.txt ausgelesen 'und die Zeichen ausgetauscht 'das Ergebnis wird in scanview2.txt dargestellt '************************************************ Option Explicit ' Definiere E/A-Modus-Konstante Const ForWriting = 2 ' E/A-Modus: schreiben Const inF = "scanview.txt" Const outF = "scanview2.txt" ' Zeichenmuster zum Suchen und Ersetzen Const pattern = "????" <-- was muss hier rein ?(suche) Const replacement = "???" <-- was muss hier rein (ersetze) Dim Text Dim fso Dim oFileIn, oFileOut ' Text-Stream Dim path, filein, fileout path = GetPath() ' Hole Pfad fileIn = path & inF ' Dateinamen ableiten fileOut = path & outF ' FileSystemObject-Objekt erzeugen Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(fileIn) Then ' Datei vorhanden? WScript.Echo "Datei '" & fileIn & "' nicht gefunden" WScript.Quit 1 End if ' Öffnet Eingabedatei und Ausgabedatei Set oFileIn = fso.OpenTextFile(fileIn) ' Eingabedatei Set oFileOut = fso.OpenTextFile(fileOut, _ ForWriting, true) ' Ausgabedatei Do While Not (oFileIn.atEndOfStream) Text = oFileIn.Readline ' Lese Zeile Text = Filter (Text, pattern, replacement) oFileOut.WriteLine (Text) ' Schreibe Text Loop WScript.Echo "Textdatei: " & fileIn & vbCRLF & _ "Ergebnis in: " & fileOut '########################## Function GetPath ' Hole Skriptpfad DIM path path = WScript.ScriptFullName ' Skriptname GetPath = Left(path, InstrRev(path, "\")) End Function Function Filter (txt, expr1, expr2) ' Ersetze expr1 mit expr2 in txt Dim oReg Set oReg = New RegExp ' Regular expression. oReg.Global = true ' Alle Treffer oReg.IgnoreCase = True ' Gross-/Kleinschreibung beachten. ' Ersetze alle expr1 mit expr2 oReg.Pattern = expr1 ' Muster setzen Filter = oReg.Replace(txt, expr2) End Function ' Ende

Also ich hab das mit der 92 getestet aber das tut nicht egal wie ich es eingegeben hab zum beispiel so: '************************************************ 'Text wird aus scanview.txt ausgelesen 'und die Zeichen ausgetauscht 'das Ergebnis wird in scanview2.txt dargestellt '************************************************ Option Explicit ' Definiere E/A-Modus-Konstante Const ForWriting = 2 ' E/A-Modus: schreiben Const inF = "scanview.txt" Const outF = "scanview2.txt" ' Zeichenmuster zum Suchen und Ersetzen Const pattern = "Chr$(92)" <----- DAS TUT LEIDER NICHT Const replacement = "\\" Dim Text Dim fso Dim oFileIn, oFileOut ' Text-Stream Dim path, filein, fileout WIE MUSS DER BEFEHL RICHTIG LAUTEN ? Danke

Hallo, das auslesen einer textdatei funktioniert jetzt aber wenn ich nach einem backslash suchen möchte und es durch ein anderes zeichen ersetzen möchte, geht es nicht. (vielleicht weil das backslash ein sonderzeichen ist) wie müsste den der suchbefehl nach dem Backslash lauten ??? ---> "\" das tut nicht!!!!! Wie müsste denn das Suchkriterium nach einem Backslash lauten [in VB]

Hallo, ich habe ein kleines Problem, ich soll mit einem xxx.vbs Script eine Textdatei auslesen und jedes \(Backslash) durch \\(2 Backslash) ersetzen. Kann mir da jemand weiter helfen ? Hab noch nie was min vb gemacht. Danke

tja ihr habt alle was falsch gemacht. ich habe als fahranfänger mit 140 % angefangen (also auf meinen namen die versicherung abgeschlossen). Und komme ab januar nach nem guten halben Jahr auf 100 % Man muss nur zur richtigen versicherung und ein bissle handeln und schauen was für angebote die dort haben.

@ Mr. Blue Screen & Cobol-Victim & BabyK Danke werd ich haben @ PsiKosmos: Hatte davor einen golf 2 was der an Versicherung gekostet hat ist der Wahnsinn also von dem her wird die versicherung etwas günstiger dafür gehen die steuern hoch aber alles in allem gleicht sich das aus

Hallo Cobol-Victim, also gekauft ist es schon :-) 800 € habe ich zahlen müssen. Ist ein guter Preis und das Auto geht ab wie "Schnitzel"

Eins wollt ich noch los werden: Die Ausbildungsvergütung entstand nach dem 2. Weltkrieg davor mussten die Azubis (früher Lehrlinge genannt) dem Ausbilder Geld zahlen damit er sie ausbildet. Da es aber nach dem 2. Weltkrieg viel bedarf an qualifizierten Arbeitern gab wurde der Anreiz für eine Ausbildung durch die Ausbildungsvergütung geschaffen. Denn die Eltern hatten meist wenig Geld und hätten die Kinder sonst "richtig" arbeiten schicken müssen..... Die Ausbildungsvergütung war (bzw. ist) eigentlich für die Eltern bestimmt damit sie eben Ihre Kinder nicht "richtig" arbeiten lassen müssen. Gruß Terminator (der auch mal in der BS aufpasst)

paar Infos noch: anthrazitgrau metallic Erstzulassung 1992 150 000 km 120 PS verbrauch im schnitt 7,5l/100km Servolenkung ZV el. Fensterheber Beheizte Front und Heckscheibe el. verstellbare Außenspiegel Glas-Aufstelldach + Winterreifen (1 Winter gelaufen) und das ganze ohne rost und ohne jeglichen Schaden Top Zustand also was meint ihr ???

a) ich bin für Arbeitsplätze für alle (hört sich doch toll an) Wie wärs wenn jeder Arbeitnehmer auf 30% seines Gehalt verzichtet dann hätte doch jeder arbeit weil durch das gesparte geld neue Leute eingestellt werden.

Das Auto ist in einem top Zustand und hat 150 000 km. Aber regelmäßige Inspektionen und scheckheft gepflegt

Hallo Zusammen, ich möchte mir ein "neues" altes:D Auto zulegen und zwar einen Ford Sierra 2.0 GL Erstzulassung 1992 Hat eine® Erfahrungen mit diesem Auto gemacht oder kann jemand was dazu sagen ? Schreibt einfach was ihr von dem Auto haltet oder was ihr über es wisst :mod: Freu mich auf jede Antwort

Logfile's vom IIS (Internet Informations Server)

Servus, kennt einer von Euch ein gutes Programm mit dem man Logfiles auswerten kann ? (am besten freeware muss aber nicht unbedingt freeware sein) am besten ne url angeben Danke für die Hilfe :e@sy

Carhifi -------- Was haltet ihr von der Marke Car Audio Design ? Klar gibt es besseres, vielleicht hat ja jemand Erfahrungen damit gemacht ?!? Also schreibt was Ihr wisst :mod: Freu mich auf jede Meinung/Antwort

ich komme aus BaWü also mathe und Deutsch krieg ich als externer hin da bin ich total fit aber Fremdsprachen ****** :floet:

.....und wie läuft das mit dem ergänzenden Studium ab ? Isch habe doch keine Ahnung :floet:

Kann man währen seiner Ausbildung sein Abitur machen ? Vielleicht Abends oder am Wochenende ? Freu mich auf Eure antworten

Ich hab auch nicht vor es abzustreiten, außerdem wars mit dem Firmenwagen und der Personalchef weiß schon bescheid Dass hast du falsch verstanden es war außerorts - aber es waren trotzdem nur 50 erlaubt.

Damit kann ich was anfangen :uli Dankeschön

Ok nochmals DANKE an ALLE :uli :uli :uli Was hab ich draus gelernt.......sich nicht mehr erwischen zu lassen :floet:

Bevor es hier untergeht poste ich es nochmal

Also wenn ich das jetzt richtig verstehe war es kein A verstoß da ich nicht über 20 km/h zu schnell gefahren bin !!! Aber was für ein verstoß war es dann weil in die kategorie B fall ich dann auch nicht oder :confused:

Danke für die schnellen und wirklich guten Antworten :uli :uli :uli Also ich wurde in einem Landkreis geblitzt in dem das Auto nicht angemeldet ist. Ich wurd in Esslingen geblitzt. Und das Auto ist in Tübingen zugelassen. Wenn jemand noch was weiß dann her damit