How To Get Text String On 1 Line From MemBlock?

Author

Message

JeZxLee

7

Years of Service

User Offline

Joined: 15th Mar 2017

Location: Long Island, New York, United States, Earth

Posted: 3rd Jan 2018 13:58

Link

Hi,

Working on the word dictionary lookup.
Lets say I have the following TXT file:
______________________________________________________
aaas
aaal
aaa
aaberg
aachen
______________________________________________________

If I use the following code:

+ Code Snippet

oneWordIndex as integer
oneWordIndex = FindString( DictionaryString[0], "aaa", 1, 1 )
CreateAndInitializeOutlinedText(TRUE, CurrentMinTextIndex, str(oneWordIndex), 999, 20, 255, 255, 255, 255, 0, 0, 0, 1, (ScreenWidth/2)-150, ScreenHeight/2, 0)

it won't work correctly because "aaas" contains "aaa"...

How would I properly read one string line from a MemBock?
Hope someone can help, have much more work to do on this game soon!

JeZxLee
16BitSoft
Video Game Design Studio
http://www.16BitSoft.com
Open-Source AppGameKit Project!

Back to top

Profile PM Email Website

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 3rd Jan 2018 14:25 Edited at: 3rd Jan 2018 14:47

Link

Some ideas:

You could ensure your dictionary is ordered correctly... shorter words first then your existing code would work ok.

Alternatively - You could search for oneWordIndex = FindString( DictionaryString[0], "aaa" + "\n", 1, 1 )
("\n" is added above so it checks that the word ends)
You may need to use "\r" depending on what system you created the text file

Otherwise, you could write a Findstring alternative that compares letters and also checks for a or line return at the end

Also check out....
https://www.appgamekit.com/documentation/Reference/Core/GetStringToken.htm

and the GetStringToken2 as these do something similar to what your after!!

Back to top

Profile PM

puzzler2018

User Banned

Posted: 3rd Jan 2018 18:01 Edited at: 3rd Jan 2018 18:01

Link

or

findstring$="aaa"

if ( len( findstring$ ) = len(dictionarystring[0]) and (mid(dictionarystring [0],1,len(findstring)) = findstring$)
// Found
else
// Move to check the next word
endif

Back to top

Profile

puzzler2018

User Banned

Posted: 3rd Jan 2018 18:10

Link

Like this

// Project: words 
// Created: 2018-01-03

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "words" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global WA as string [50000]

wa= ["aaa","abab1","acas","acas2","aaberg","aachen"]
do
	findstring$="acas"
	print ("Match word : " + findstring$)
	for a=0 to wa.length
		
		
		if (len(findstring$) = len(wa[a]) and (mid(wa[a],1,len(FindString$)) = findstring$))
			print (wa[a] + " Matches " + findstring$)
		else
			print (wa[a] + " No match with " + findstring$)
		endif
	next

Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet


// Project: words 
// Created: 2018-01-03

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "words" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


global WA as string [50000]

wa= ["aaa","abab1","acas","acas2","aaberg","aachen"]
do
	findstring$="acas"
	print ("Match word : " + findstring$)
	for a=0 to wa.length
		
		
		if (len(findstring$) = len(wa[a]) and (mid(wa[a],1,len(FindString$)) = findstring$))
			print (wa[a] + " Matches " + findstring$)
		else
			print (wa[a] + " No match with " + findstring$)
		endif
	next
    

    Print( ScreenFPS() )
    Sync()
loop

Back to top

Profile

JeZxLee

7

Years of Service

User Offline

Joined: 15th Mar 2017

Location: Long Island, New York, United States, Earth

Posted: 3rd Jan 2018 19:22

Link

Thanks puzzler2018,

I got it all working now, but will revisit it before official Beta1 release to optimize.
Thanks again for your help with this project...

JeZxLee
16BitSoft
Video Game Design Studio
http://www.16BitSoft.com
Open-Source AppGameKit Project!

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 3rd Jan 2018 19:27

Link

No probs,

Back to top

Profile

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Jan 2018 21:24

Link

Isn't there a newline character after each word? If reading the text file into a memblock keeps those, you could add that to your search term.

oneWordIndex = FindString( DictionaryString[0], "aaa"+chr(10), 1, 1 )

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 3rd Jan 2018 22:23

Link

Great tip. as long as the FindString command in itself is really fast - cause just tried and its agonizingly slow searching a full length of words using my own version of a word find

Suppose this is all about optimisation now

Back to top

Profile

Bengismo

7

Years of Service

User Offline

Joined: 20th Nov 2017

Location: Yorkshire, England

Posted: 4th Jan 2018 09:15

Link

Phaelax wrote: "oneWordIndex = FindString( DictionaryString[0], "aaa"+chr(10), 1, 1 )"

Its the same suggestion I posted above in the second post. lol

Ben wrote: "Alternatively - You could search for oneWordIndex = FindString( DictionaryString[0], "aaa" + "\n", 1, 1 )"

chr(10) = "\n" - either way its checking for the newline character

You could optimise by splitting the dictionary up further, so its not having to findstring in such large chunks. Split A into AA, AB, AC,AD words and so the search is on a smaller string but this would require you to split up your dictionary string into substrings.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / How To Get Text String On 1 Line From MemBlock?