The QBasic / QB64 Discussion Forum      Other Subforums, Links and Downloads
 
 

 Return to Index  

no tested about help for interpol(ip) to delete subversive from list

June 17 2012 at 7:54 AM
Anonymous  (no login)

 
no tested no looked perhaps comment.....


page



pepper-jk



Anmeldungsdatum: 08.07.2009
Beiträge: 33

Verfasst am: 11.07.2009, 13:08 Titel: String aus .txt auslesen & in VAR schreiben

--------------------------------------------------------------------------------

hallihallo ..
ich habe ein kleines problem und zwar habe ich mir ein FUNKTIONIERENDES Batch Script geschrieben, das etwas in eine .txt datei im temp ordner schreibt und das will ich mit jetzt in meinem FB Prog in eine Variable einlesen lassen, leider tut es dies nichtmit dem Quelltext den ich hier in dem Forum gefunden habe:

Code:
shell "start xIP.bat"
sleep
Open "%temp%\xIP.txt" as #1
While not Eof(1)
Line Input #1,LadeString
neueIP=neueIP+LadeString
Wend
Close #1


Kompletter Quelltext:

< xIP.bat >
Code:


color 2
del %temp%\input.vbs
set "inputsatz=Please enter your IP: "
set "inputtitel=xIP-Input"
echo input=InputBox ("%inputsatz%","%inputtitel%","")>>%temp%\input.vbs
echo Wscript.Echo input>>%temp%\input.vbs
del %temp%\ipconfig.txt
ipconfig>%temp%\ipconfig.txt
start %temp%\ipconfig.txt
for /f "delims=" %%i in ('cscript //nologo %temp%\input.vbs') do set "xIP=%%i"
del %temp%\xIP.txt
echo %xIP%>>%temp%\xIP.txt


< xIP.bas >
Code:
dim neueIP as STRING

shell "start xIP.bat"
sleep
open "%temp%\xIP.txt" for input as #II
Line Input #II, neueIP
Close #II

.....
usw.
(der rest geht zwinkern)


freue mich auf schnelle antworten

MfG pepper-jk

Nach oben


nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 3128
Wohnort: ~/
Verfasst am: 11.07.2009, 14:14 Titel:

--------------------------------------------------------------------------------

Gehört in den Bereich "Allgemeine Fragen zu FreeBASIC".

Solange Jojo nicht seine Wahrsagekugel aus der Reparatur zurückbekommt, müsstest du etwas genauer schildern, was an dem Programm nicht funktioniert. Hast du neueIP und LadeString als String deklariert? Stimmt der Speicherpfad?
_________________
Solange es funktionert, ist es noch nicht perfekt.

Nach oben


http://forum.qbasic.at/viewtopic.php?p=87240

 
 Respond to this message   
Response TitleAuthor and Date
No batch! Use SHELL (View Thread) on Aug 2
 Copyright © 1999-2014 Network54. All rights reserved.   Terms of Use   Privacy Statement  

Newbies usually go to www.qbasic.com and click on The QBasic Forum
Forum regulars have their own ways, which include The QBasic Community Forums