-roTekuGeL-

Die da wäre?

Also der Code den ich dir Hingestellt hab schreibt in eine .txt oder .doc oder sonstige datei einen Text (überschreibt das was vorher drin war). Damit erstellst du KEINE neue TextDatei sondern änderst nur den Inhalt einer Datei die du (in dem bsp.) per Commondialog auswählst. Jetzt brauchst du also nur noch ein Funktion die ein Backup der Datei erstellt (das kann man mit dem FileSystemObject machen) und das wenn die Datei schon besteht der user eine meldung bekommt ob er die Datei neu füllen will (d.h. wenn die Datei schon existiert kommt die Abfrage). Also meine Wissens gibt es sowas wie Word.Application nicht. :confused:

Also so: Option Explicit Private Sub Form_Load() On Error GoTo err_err Dim Dateinr As Integer 'Variable Dim Temp As String 'Variable Dim DateiPfad As String CommonDialog1.ShowOpen DateiPfad = CommonDialog1.FileName Dateinr = FreeFile Temp = Text1.Text Open DateiPfad For Output As Dateinr Print #Dateinr, Temp Close Dateinr Exit Sub err_err: End Sub Zur Erklärung: Die Datei die du mit dem Commondialog (Steuerelement) öffnest wird mit dem Text aus der Textbox gefüllt, dabei wird automatisch alles was vorher drin war gelöscht. Natürlich musst du das ganze noch etwas umbauen das es das nicht gleich beim Form_Load macht. noch Fragen?

mh also ich würde die Datei in ne Textbox einlesen, dann darin das ändern was du willst (automatisch oder manuell) die datei speichern und fertig. damit kannst du dann auch entscheiden ob du den alten text stehen lassen willst. geht das oder solls was anderes sein?

hi Manuell löschen und was reinschreiben oder Autom.?

Danke!!! Hat mir sehr geholfen

Hi Also gestern hab ich mal wieder in meiner Spielkiste rumgeschnüffelt und dabei NFS3 gefunden, da ichs schon lange net mehr gezockt hab dachte ich warum nicht und wollte es installieren. Da kam dann folgendes Problem auf: der sch*** installer von NFS3 sagt doch das die "Installation nur unter Win95/98 möglich" ist und bricht die Installation ab. Hat schonmal jemand von euch dieses Problem gehabt? Wenn ja wie habt ihr es gelöst? :confused:

Da schreibt man normal nix drauf das sind eigentlich Jpegs die du dir selber gebaut hast beschrieben hier: http://selfhtml.teamone.de/javascript/beispiele/buttons.htm

Wie? du willst auf nen leeren Button was draufschreiben? oder wie ist das gemeint? und meinst du ein aufklappbares menü wie hier ?

Geht mir auch so. Aber da ich halt ohne Koffein kaum in der Lage wäre mich zu konzentrieren / nicht einzupennen greif ich halt zu der Alternative Coke :bimei

lol :bimei

Ich glaube schon das der Job einen Prägt und vor allem das Umfeld das man in seinem Job hat. So habe ich zum bsp. bemerkt das sich die Gewerbeazubis bei uns (Mechatroniker, Elektroniker,...) scheinbar zurückentwickelt haben ... klingt komisch ist aber so. Das sind so 30 Azubis die den ganzen Tag unter sich sind (mit 2 Ausbildern) und die drehn da den ganzen Tag nur mist am Anfang der Ausbildung waren die Total ok aber mittlerweile...

öhm ich hab sowas bei Frontpage 6 gesehn mit Default - Bildern und sowas habs aber nie versucht ansonsten kannst du ja mal bei SelfHTML vorbeischaun

Also kannst ja hier mal nachsehn

ALT+TAB und den mp3 player anwerfen

XP prof. hat noch mehr sachen drin wie remote desktop und anderes zeug fürs netz

hrhr erwischt

tjo desswegen so da gibts net viel falsch zu machen und läuft so ziemlich auf das selbe raus

kleiner Tipp: wenn du wissen willst ob der User den CD abgebrochen hat dann frag den CommonDialog1.Filename ab wenn der = "" ist dann hat der user folglich keine Datei ausgewält (also Abgebrochen)

also wenn jetzt ein fehler auftritt zeigt er gar nichts an sondern beendet nur die sub. wenn er ne meldung bringen soll schreib das nach der err_err: z.b. Msgbox "Fehler!" Option Explicit Private Sub Command1_Click() On Error GoTo err_err Dim Dateinr As Integer 'Variable Dim Temp As String 'Variable Dim DateiPfad As String CommonDialog1.ShowOpen DateiPfad = CommonDialog1.FileName Dateinr = FreeFile Open DateiPfad For Input As Dateinr Do While Not EOF(Dateinr) Line Input #Dateinr, Temp List1.AddItem Temp Loop Close Dateinr Exit Sub err_err: End Sub

Freut mich wenn ich helfen konnte

FileSystemObject hab ich noch nie gebraucht und weiß jetzt eigentlich auch gar nicht wozu... den CommonDialog musst du erst in die werkzeugliste mit einfügen: Menü: Project => Komponenten => neues fenster geht auf hier suchst du Microsoft Common Dialog Control 6.0 davor machst du dann nen hacken und drückst OK dann hast du das element bei den anderen (textbox, Listbox,...) ganz unten füge das neue element einfach in die form ein und mit dem Code den ich geschrieben hab müsste ess dann auch schon laufen

hi erstmal würde ich ein Commondialog element einfügen, dann muss der user den pfad nicht selber angeben sondern sucht die datei mit dem CD Das bsp. müsste so eigentlich laufen Private Sub Einlesen_Click() Dim Dateinr As Integer 'Variable Dim Temp As String 'Variable dim DateiPfad as String CommonDialog1.ShowOpen DateiPfad = CommonDialog1.Filename Dateinr = FreeFile Open DateiPfad For Input As Dateinr Do While Not EOF(Dateinr) Line Input #Dateinr, Temp list1.AddItem Temp Loop Close Dateinr End Sub

achso falsch verstanden sry

@Spufy und wenn der schaden über 900€ liegt...? dann zahlst du es wohl selber ohne versicherung oder wie? ...denn so sch*** türen sind bestimmt recht teuer