text datei durchsuchen und text ersetzen

[udg]

Hallo,

ich möchte mit einem kleinen Tool in einer Text Datei einen Text finden und mit dem eingegebenen Namen aus dem "StringGadget" beim klicken auf SAVE automatisch ersetzen.

Wenn also der User seinen Namen eingibt, soll dieser dann durch klicken auf den Button "Save" aus dem StringGadget übernommen werden und
in der TXT Datei den Namen: UserName="hier soll der Name aus dem StringGadget geschrieben werden"
überschreiben und das Ganze speichern.

vorher:
UserName=User
nachher
UserName=neuer Name

Nun habe ich schon einige Beispiele und Stunden um die Ohren geschlagen bin jedoch zu keinem Ergebnis gekommen.

hier einmal der einfache Code da mein originalcode einiges an Grafiken verwendet:

Code: Alles auswählen

;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #String_0
  #save
  #exit
  #Font_String_0
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu, StringGadget
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 463, 196, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
      StringGadget(#String_0, 50, 205, 300, 30, "enter username", #PB_String_BorderLess|#PB_Window_ScreenCentered)
      SetGadgetFont(#String_0, LoadFont(#Font_String_0, "HelveticaNeueLT Pro 35 Th", 20, #PB_Font_HighQuality))
      SetActiveGadget(StringGadget)
      ButtonGadget(#save, 50, 255, 130, 40, "save")
      ButtonGadget(#exit, 220, 255, 130, 40, "exit")
   
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #String_0
      ElseIf EventGadget = #save
      ElseIf EventGadget = #exit
      End  
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}

Vielen Dank für eine Hilfe und Lösung

[HeX0R]

Was genau hat das Beispiel mit der Aufgabenstellung zutun?
Du gibst uns also ein GUI-Gerüst, und wir sollen den Rest erledigen?

Ich bin mir sicher, irgendeiner wird Dir den fehlenden Code dort reinpflanzen, aber es wäre auch für Deine Lernkurve sehr viel sinnvoller, wenn Du uns Deine bisherigen Versuche zeigen könntest und wir sagen Dir was Du falsch machst.

Wenn der Text in der Datei tatsächlich so aussieht (UserName=User), dann würde ich Dir raten mal bei den Preference-Befehlen nachzuschauen.

[udg]

Danke für deinen Beitrag.

Ich werde selber weiter probieren. Wenn man sich nicht richtig mit einer Sache auskennt fragt man eben lieber da man kein Ergebnis in Sicht hat.

Aber trotzdem DANKE

[ts-soft]

Code: Alles auswählen

SetActiveGadget(StringGadget)

das soll wohl:

Code: Alles auswählen

SetActiveGadget(#String_0)

sein? Damit das nicht passiert, gibt es EnableExplicit!

Ansonsten in der Hilfe mal nach ReplaceString suchen.

[udg]

Danke TS-Soft für den Tipp,

nach langem Versuchen bin ich nun zu mindest soweit, dass ich eine TxT Datei auslese und mit einem vorgegebenene Namen ersetzen kann.
ReplaceString habe ich versucht aber da tat sich gar nichts
Leider fehlt mir der Faden wie ich nun einen eingetippten Namen aus dem "StringGadget(#String_0") übergebe.

Hier mal mein Ansatz der in der Text.txt Datei zumindest schon mal einen Namen ändert

Text Datei Inhalt:
Name:Text.txt

Code: Alles auswählen

1
2
3
4
4
5
3
52
35
2
352
36
wet
g
wde
we
###########################################
UserName=UserName
###########################################

End

und hier mein Code zum durchsuchen der Text.txt Datei

Code: Alles auswählen

EnableExplicit
;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #String_0
  #save
  #exit
  #Font_String_0
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu, StringGadget
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 463, 196, 400, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
      StringGadget(#String_0, 50, 205, 300, 30, "enter username", #PB_String_BorderLess|#PB_Window_ScreenCentered)
      SetGadgetFont(#String_0, LoadFont(#Font_String_0, "HelveticaNeueLT Pro 35 Th", 20, #PB_Font_HighQuality))
      SetActiveGadget(#String_0)
      ButtonGadget(#save, 50, 255, 130, 40, "save")
      ButtonGadget(#exit, 220, 255, 130, 40, "exit")
   
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #String_0
        ElseIf EventGadget = #save
          ;öffne txt Datei und durchsuche
          OpenFile(0,"Text.txt")
            While Not Eof(0)
               If ReadString(0)="UserName=UserName"
                 FileSeek(0,Loc(0)-10) ; löscht die Zeichen hinter dem "="
                 WriteStringN(0, "peter")  ; schreibt neuen Namen. Dieser Soll aber eigtl. aus dem StringGadget(#String_0) übernommen werden
               EndIf
            Wend
          CloseFile(0)  
       ElseIf EventGadget = #exit
          End 
       EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}

Nun steht in der Text.txt der "username=peter"

Grüße

[Bisonte]

und um das "Peter" gegen den Inhalt des StringGadgets zu ersetzen schau Dir in der Hilfe mal die Abteilung
StringGadget und GetGadgetText an....

Und evt. die ganze Abteilung wo es sich um Variablen dreht!

Aber :

Wenn der Text in der Datei tatsächlich so aussieht (UserName=User), dann würde ich Dir raten mal bei den Preference-Befehlen nachzuschauen.

Das ist dann um einiges einfacher mit der Änderung in der Datei....

[HeX0R]

So wie Du das machen möchtest (direkt in der Datei verändern), must Du folgendes beachten:
Das funktioniert nur korrekt, wenn dein zu ersetzender Name genauso lang ist wie das, was da vorher steht.
Wenn Du z.B. Username=Username in Peter ändern möchtest, wird sich das in

Code: Alles auswählen

###########################################
Username=Peterame
###########################################

ändern, bzw. wenn Du ReadStringN benutzt (weil dann noch ein CR und LF dazu kommt):

Code: Alles auswählen

###########################################
Username=Peter
e
###########################################

Probier mal die Preference-Befehle, ich bin mir nicht sicher, ob das in dieser merkwürdigen Text-Datei funktioniert, einen Versuch wäre es aber Wert.

Ansonsten führen viele Wege nach Rom:
z.B. komplette Datei in einen String lesen und dort mittels den Stringbefehlen die Änderung durchführen und dann die Datei wieder neu zurückschreiben.

[udg]

Danke für eure beiden Antworten. Ich werde das heute abend durchlesen wenn ich von der Arbeit rein bin. Die Hilfe und eure Ansätze ausprobieren. Das ein anderer Name zb noch andere Buchstaben hatte oder ein Zeilenumbruch auf einmal da war, hatte ich in meinen versuchen auch schon. Wichtig ist vor allem, dass ich den Namen aus der Tool Eingabe übergeben kann und in eine txt speichern und einen vorgegebenen string bzw. Namen überschreiben kann. Wird schon. Muss gehen. Bei anderen geht es ja auch.

Grüße