Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Newcomers DBPro Corner / Some endninf problems!

Author
Message
Hayer
19
Years of Service
User Offline
Joined: 4th Nov 2005
Location: Norway
Posted: 23rd Mar 2006 13:03
Hi... Got some problems with the compilator on the end...
here is the code
[CODE]
print " Name: ";get ftp file name$();
print " Size: ";get ftp file size()
ftp find next
endif
end
[/CODE]

Mess with the bests, die like the restes!
Hayer
19
Years of Service
User Offline
Joined: 4th Nov 2005
Location: Norway
Posted: 23rd Mar 2006 13:04
oops... Did miss some thing...
1. Its just the end of the code
2. I have never posted any code snippedts before so...

Mess with the bests, die like the restes!
RUCCUS
19
Years of Service
User Offline
Joined: 11th Dec 2004
Location: Canada
Posted: 23rd Mar 2006 14:29
In your DBP File, Right Click > Select All, then Right Click again and click Copy. Come back to these forums, paste the code, select all of the code, and click the code button in the top right of the post box.

The tags will only work when you dont capitalize them, so [ code ] not [ CODE ] (remove the spaces).

And before finishing the next post, explain what isnt happening and whats going wrong, and what you want to happen.

Hayer
19
Years of Service
User Offline
Joined: 4th Nov 2005
Location: Norway
Posted: 23rd Mar 2006 15:50
oki... here is the code...
Put 1 thing.. PLZ DONT TELL ME ALL MY FAULTS,WRONGS AND OTHER STUPID THINGS DONE BY MY!! Just look at the end!

rem Definerer hvilken skrifttype programet skal bruke
set text font "arial" : set text size 20

rem Får inn bruker navn,passord og ftp adresse.
input "Address:",adress$
text 40,90,adress$
input "User name:",name$
text 40,105,name$
input "Password:",pass$
text 40,120,pass$
wait 2000
rem Min lang loading
cls
Text 270,200,"Connecting"
wait 500
cls
text 270,200,"Connecting."
wait 500
cls
text 270,200,"Connecting.."
wait 500
cls
text 270,200,"Connecting..."
wait 500
cls
Text 270,200,"Connecting"
wait 500
cls
text 270,200,"Connecting."
wait 500
cls
text 270,200,"Connecting.."
wait 500
cls
text 270,200,"Connecting..."
wait 500
cls
Text 270,200,"Connecting"
wait 500
cls
text 270,200,"Connecting."
wait 500
cls
text 270,200,"Connecting.."
wait 500
cls
text 270,200,"Connecting..."
wait 500
cls
rem HER SKAL DET VÆRE NY LABEL!
time#=timer()
ftp connect adress$,name$,pass$
if get ftp failure()=0
time#=timer()-time#
print "Connection established in ";time#/1000.0;" seconds."
else
print "Could not connect to ";adress$
print "ERROR"
Print "Press ESC to exit."

_viewfiles:
print "View each FTP file in a folder."
if get ftp status()=1
print "FTP dir: ";get ftp dir$();"..." : sync
ftp find first
while get ftp file type()>-1
print "Type: ";get ftp file type();
print " Name: ";get ftp file name$();
print " Size: ";get ftp file size()
ftp find next
endif
end


btw i know that the connection... thing is pretty long xD

Mess with the bests, die like the restes!
spooky
22
Years of Service
User Offline
Joined: 30th Aug 2002
Location: United Kingdom
Posted: 23rd Mar 2006 18:03
You have used WHILE but have no matching ENDWHILE

Also, please edit your post and put the 'code' tags around the code so it goes in a nice code snippet box.



Boo!
RUCCUS
19
Years of Service
User Offline
Joined: 11th Dec 2004
Location: Canada
Posted: 23rd Mar 2006 21:33
*sigh* , some just never learn...

Silent Knight
19
Years of Service
User Offline
Joined: 25th Jan 2005
Location: In Your Mind
Posted: 23rd Mar 2006 22:45
Where you from? those are some interesting characters
You have get after your if command. try something like this


Cyberspace must be a really popular place to live.

Login to post a reply

Server time is: 2024-11-27 23:33:31
Your offset time is: 2024-11-27 23:33:31