Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

[FreeBASIC] strings ersetzen !!!

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
pepper-jk



Anmeldungsdatum: 08.07.2009
Beiträge: 33
BeitragVerfasst am: 08.07.2009, 16:16    Titel: [FreeBASIC] strings ersetzen !!! Antworten mit Zitat
hallihallo alle zusamme ..
ich hab 3 dateien (arcemu-logonserver.conf ; arcemu-realms.conf
und arcemu-world.conf) da steht momentan als IP "127.0.0.1" drin, dies soll mein FreeBASIC-Prog erkenne un des mit der eingegebenen IP ersetzen, aber irgendwie findet es den pfad zu den dateien nicht .. obwohl ich ihn richtig angegeben habe , nach meinem wissen .. ich weiß nicht mehr weiter

hier mal der Quelltext:

Code:
dim zeile as STRING
dim neueIP as STRING
dim erg as STRING
shell "ipconfig>ipconfig.txt"
shell "start ipconfig.txt"

input "Please type in your IP: ", neueIP

shell "rename " & chr(34) & exepath & "\Server\configs\arcemu-logonserver.conf" & chr(34) & " " & chr(34) & exepath & "\Server\configs\arclogonconf" & chr(34)
open exepath & "\Server\configs\arclogonconf" for input as #1
open exepath & "\Server\configs\arcemu-logonserver.conf" for output as #2

do until eof(1)
   line input #1, zeile
   if instr(zeile, "127.0.0.1") <> 0 then
      erg = left(zeile, instr(zeile, "127.0.0.1")) & neueIP & mid(zeile, instr(zeile, "127.0.0.1")+len("127.0.0.1"))
      print #2, erg
   else
       print #2, zeile
   end if
loop

close #1
close #2

shell "rename " & chr(34) & exepath & "\Server\configs\arcemu-realms.conf" & chr(34) & " " & chr(34) & exepath & "\Server\configs\arcrealmsconf" & chr(34)
open exepath & "\Server\configs\arcrealmsconf" for input as #1
open exepath & "\Server\configs\arcemu-realms.conf" for output as #2

do until eof(1)
   line input #1, zeile
   if instr(zeile, "127.0.0.1") <> 0 then
      erg = left(zeile, instr(zeile, "127.0.0.1")) & neueIP & mid(zeile, instr(zeile, "127.0.0.1")+len("127.0.0.1"))
      print #2, erg
   else
       print #2, zeile
   end if
loop

close #1
close #2

shell "rename " & chr(34) & exepath & "\Server\configs\arcemu-world.conf" & chr(34) & " " & chr(34) & exepath & "\Server\configs\arcworldconf" & chr(34)
open exepath & "\Server\configs\arcworldconf" for input as #1
open exepath & "\Server\configs\arcemu-world.conf" for output as #2

do until eof(1)
   line input #1, zeile
   if instr(zeile, "127.0.0.1") <> 0 then
      erg = left(zeile, instr(zeile, "127.0.0.1")) & neueIP & mid(zeile, instr(zeile, "127.0.0.1")+len("127.0.0.1"))
      print #2, erg
   else
       print #2, zeile
   end if
loop


close #1
close #2
kill "ipconfig.txt"
end


hofffe auf schnelle hilfe
MfG pepper-jk

/edit dreael: Code-Tags ergänzt
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden MSN Messenger
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
BeitragVerfasst am: 08.07.2009, 16:48    Titel: Antworten mit Zitat
(nebenbei: chr(34) & " " & chr(34) == chr(34, 32, 34) happy )

Wegen der Kürze der Zeit habe ich es nur mal überflogen; ich würde in
Code:
if instr(zeile, "127.0.0.1") <> 0 then
erg = left(zeile, instr(zeile, "127.0.0.1")) & neueIP & mid(zeile, instr(zeile, "127.0.0.1")+len("127.0.0.1"))

lieber ein
Code:
suche = instr(zeile, "127.0.0.1")
if suche <> 0 then
erg = left(zeile, suche) & neueIP & mid(zeile, suche+len("127.0.0.1"))

anstatt den gewünschten String immer wieder neu zu suchen. Sollte allerdings nicht der Grund des Problems sein.

Ich denke mal, es muss
erg = left(zeile, instr(zeile, "127.0.0.1")-1) & neueIP & mid(zeile, instr(zeile, "127.0.0.1")+len("127.0.0.1"))
heißen. Ansonsten würde ich es mal mit einem
Code:
PRINT zeile

probieren, ob aus der Datei das ausgelesen wird, was soll.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
pepper-jk



Anmeldungsdatum: 08.07.2009
Beiträge: 33
BeitragVerfasst am: 08.07.2009, 16:59    Titel: Antworten mit Zitat
Hey .. danke für die schnelle antwort..
ich habe schon eine andere lösung gefunden..
ees war einfach nur ein fehler im

<Shell> - Befehl zwinkern

ich hab das jetzt einmal geändert und nun gehts lächeln

hier nochmal der Quelltext:

Code:
dim zeile as STRING
dim neueIP as STRING
dim erg as STRING
shell "ipconfig>ipconfig.txt"
shell "start ipconfig.txt"

input "Please type in your IP: ", neueIP

shell "xcopy /E /I /Y " & chr(34) & exepath & "\Server\configs\backup" & chr(34) & " " & chr(34) & exepath & "\Server\configs" & chr(34)
shell "rename " & chr(34) & exepath & "\Server\configs\arcemu-logonserver.conf" & chr(34) & " " & chr(34) & "arclogonconf" & chr(34)
open exepath & "\Server\configs\arclogonconf" for input as #1
open exepath & "\Server\configs\arcemu-logonserver.conf" for output as #2

do until eof(1)
   line input #1, zeile
   if instr(zeile, chr(34) & "127.0.0.1") <> 0 then
      erg = left(zeile, instr(zeile, chr(34) & "127.0.0.1")) & neueIP & mid(zeile, instr(zeile, chr(34) & "127.0.0.1")+len(chr(34) & "127.0.0.1"))
      print #2, erg
   else
       print #2, zeile
   end if
loop

close #1
close #2

shell "rename " & chr(34) & exepath & "\Server\configs\arcemu-realms.conf" & chr(34) & " " & chr(34) & "arcrealmsconf" & chr(34)
open exepath & "\Server\configs\arcrealmsconf" for input as #1
open exepath & "\Server\configs\arcemu-realms.conf" for output as #2

do until eof(1)
   line input #1, zeile
   if instr(zeile, chr(34) & "127.0.0.1") <> 0 then
      erg = left(zeile, instr(zeile, chr(34) & chr(34) & "127.0.0.1")) & neueIP & mid(zeile, instr(zeile, chr(34) & "127.0.0.1")+len(chr(34) & "127.0.0.1"))
      print #2, erg
   else
       print #2, zeile
   end if
loop

close #1
close #2

shell "rename " & chr(34) & exepath & "\Server\configs\arcemu-world.conf" & chr(34) & " " & chr(34) & "arcworldconf" & chr(34)
open exepath & "\Server\configs\arcworldconf" for input as #1
open exepath & "\Server\configs\arcemu-world.conf" for output as #2

do until eof(1)
   line input #1, zeile
   if instr(zeile, chr(34) & "127.0.0.1") <> 0 then
      erg = left(zeile, instr(zeile, chr(34) & "127.0.0.1")) & neueIP & mid(zeile, instr(zeile, chr(34) & "127.0.0.1")+len(chr(34) & "127.0.0.1"))
      print #2, erg
   else
       print #2, zeile
   end if
loop


close #1
close #2
kill exepath & "\Server\configs\arclogonconf"
kill exepath & "\Server\configs\arcrealmsconf"
kill exepath & "\Server\configs\arcworldconf"
kill "ipconfig.txt"
end


trozdem danke für deine schnelle antwort un hilfe

MfG pepper-jk

/edit dreael: Code-Tags ergänzt
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden MSN Messenger
ThePuppetMaster



Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
BeitragVerfasst am: 08.07.2009, 22:49    Titel: Antworten mit Zitat
@pepper-jk

um quellcode in einem postign zu senden schreibe im eingabefeld ein
Code:
[code ] HIER DER QUELLCODE[ /code]


dann kann man das besser lesen.


MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ]
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz