Terminator85

Danke es tut jatzt :marine

Ok ich hab das mal versucht einzubauen aber es funzt nicht.

Das Problem ist das ich noch nie was davor mit VB gemacht habe und nur ein paar habe. Das was ich vorher an Quelltext hatte hab ich auch nur aus nem buch abgetippt. So einigermaßen find ich mich schon zu recht aber deine erkenntnisse in meinen quelltext einzubinden - das schaffe ich net.....

Vielleicht kanns du mir das noch mal für "dummies" posten

Was ich nun jetzt genau verändern muss ?!?

Danke

:e@sy

Also ich werde das mal gleich testen vielen DANK !!!

Aber ich schreibe grad ein *.vbs

also ein visual basic script ich weiß nicht ob das einen Unterschied macht ?!?

@ 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

Aber wie schon gesagt, es gibt 2 Dinge das zu umgehen, ehrlich sagen ich wars oder gar nicht erst geblitzt werden

Ich hab auch nicht vor es abzustreiten, außerdem wars mit dem Firmenwagen und der Personalchef weiß schon bescheid

Sicher fahren wenige strich 50, aber 70 und mehr in der Stadt finde ich nicht wirklich gut, ausserdem bringt einen das eh selten etwas...also von wegen schneller vorrankommen.

Mit 60 passiert einen da eher weniger, weil da bekommt man normal kein Foto [/b

Dass hast du falsch verstanden es war außerorts - aber es waren trotzdem nur 50 erlaubt.

Original geschrieben von Tachyoon

Außerhalb der Ortschaft:

je nach genauerem Umstand:

70 km/h - 5 km/h = 65 km/h => 15 km/h zu schnell

70 km/h - 3 km/h = 67 km/h => 17 km/h zu schnell

20 Euro Strafe und keine Punkte oder sonstiges.

Innerhalb der Ortschaft:

je nach genauerem Umstand:

15 km/h = 25 Euro und keine Punkte oder sonstiges

17 km/h = 35 Euro und keine Punkte oder sonstiges

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: