DBP: Conversions - GameCreators Forum

Author

Message

GoPostal

20

Years of Service

User Offline

Joined: 9th Sep 2004

Location:

Posted: 11th Oct 2004 06:54

Link

How do I convert an integer to a string, I tried doing A$ = A.
Also, is it possible to write integers to files, it seems as though any other type can.
And finally, can you just use a "write array(x)" in conjunction with for...x and next x?

Back to top

Profile PM Email

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 11th Oct 2004 08:03

Link

conver integer to a string with
A = 10
B$ = str$(A)

convert string to integer with
B$ = "10"
A = val(B$)

Back to top

Profile PM Email

GoPostal

20

Years of Service

User Offline

Joined: 9th Sep 2004

Location:

Posted: 15th Oct 2004 02:23

Link

OK, but will this work (because it hasn't)
For x = 0 to 81
B$(x) = A$(x)
next x
.....
For x = 0 to 81
write B$, 1, "Myfile.inf"
next x

??

Back to top

Profile PM Email

Mr Underhill

21

Years of Service

User Offline

Joined: 23rd Apr 2003

Location: The Forgotten Worlds...

Posted: 15th Oct 2004 03:00

Link

Quote: "write B$, 1, "Myfile.inf""

I haven't done file-writing in DBP yet, but I think this is wrong. You have to open to write a file and write to it with only the string and file number (not filename).

“Do you wish me a good morning, or mean that it is a good morning whether I want it or not; or that you feel good this morning; or that it is a morning to be good on?” -Gandalf

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 15th Oct 2004 11:07 Edited at: 15th Oct 2004 11:16

Link

+ Code Snippet

dim B$(81) as string

For x = 0 to 81
	B$(x) = str$(x)
next x

if file exist("Myfile.inf") = 1 then delete file "Myfile.inf"
open to write 1, "Myfile.inf"

For x = 0 to 81
	write string 1, B$(x)
next x

close file 1

writes them to file and this will get them back.

+ Code Snippet

dim A(81) as integer
dim B$(81) AS STRING

open to read 1, "Myfile.inf"

For x = 0 to 81
	read string 1, b$(x)
next x

for x = 0 to 81
	a(x) = val(b$(x))
next x

For x = 0 to 81
	print A(x)
next x

wait key

Back to top

Profile PM Email

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 15th Oct 2004 11:57

Link

There are more methods to do this as well. You can write the values directy to the file.

+ Code Snippet

dim B(81) as integer

For x = 0 to 81
	B(x) = x-40
next x

if file exist("Myfile.inf") = 1 then delete file "Myfile.inf"
open to write 1, "Myfile.inf"

For x = 0 to 81
	write long 1, B(x)
next x

close file 1
undim B(81)


`get values from file
dim B(81) as integer

open to read 1, "Myfile.inf"

For x = 0 to 81
	read long 1, B(x)
next x


For x = 0 to 20
	print B(x)
next x

wait key
cls
For x = 21 to 40
	print B(x)
next x

wait key
cls
For x = 41 to 60
	print B(x)
next x

wait key
cls
For x = 61 to 81
	print B(x)
next x

wait key

Or you can save the array to the file

+ Code Snippet

`write values to file
dim B(81) as integer

For x = 0 to 81
	B(x) = x-40
next x

if file exist("Myfile.inf") = 1 then delete file "Myfile.inf"

save array "Myfile.inf", B(81)

undim B(81)


`get values from file
dim B(81) as integer
load array "Myfile.inf", B(81)

For x = 0 to 20
	print B(x)
next x

wait key
cls
For x = 21 to 40
	print B(x)
next x

wait key
cls
For x = 41 to 60
	print B(x)
next x

wait key
cls
For x = 61 to 81
	print B(x)
next x

wait key

There are probably other ways as well. There is always more than one way to do anything

Back to top

Profile PM Email

GoPostal

20

Years of Service

User Offline

Joined: 9th Sep 2004

Location:

Posted: 15th Oct 2004 16:40

Link

Thank you very much, hopefully I can get this working.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / DBP: Conversions