"Doesn't equal" with strings? (or another problem?)

Author

Message

tgm4l

17

Years of Service

User Offline

Joined: 21st Oct 2007

Location:

Posted: 6th May 2010 13:16

Link

+ Code Snippet

Dim ObjectPath$(500)
set text font "Arial"
set text size 12

Gosub GetFilePaths

 wait key

GetFilePaths:

	ClipboardData$ = Get Clipboard$()

	Separator$=first token$(ClipboardData$,";")

	Count = 0

	While Separator$<> ""

     	 Separator$=next token$(";")
      
     	 If Separator$ <> ""
      
      		ObjectPath$(Count) =  Separator$
      
     	 endif
     	 
     	 print objectpath$(count)
      
	endwhile
	print "finished"

Return

The output is simply "finished"

My clipboard is "C:\Users\Matthew\Documents\TopHatEngine\ENGINE\Utilities\Image Converter\Images;C:\Users\Matthew\Documents\chessrender.bmp;C:\Users\Matthew\Documents\glockUV.bmp;C:\Users\Matthew\Documents\gloveuv.bmp;C:\Users\Matthew\Documents\skintex.bmp;C:\Users\Matthew\Documents\texture_1.bmp"

(Wrote a program in VB.net that turns a list of selected files into clipboard data, where each item is separated by ";". The first item is the output folder)

What am I doing wrong?

Back to top

Profile PM

Ashingda 27

16

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 6th May 2010 17:03

Link

Your problem is because you used <> for the check. Use only the > and it will run just fine.

Back to top

Profile PM Email

Indicium

16

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 6th May 2010 17:57

Link

@Ashingda
<> means not equal
> means greater than

So unless i'm missing something here, that will only make it worse...

Rawwrr. Sig Fail.
Newcastle is awesome

Back to top

Profile PM

Ashingda 27

16

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 6th May 2010 19:26

Link

@Mad Nightmare
Actually both would be doing the same thing as it is checking if it's anything other than "nothing".

@tgm4l
At first I had some trouble getting it to work, but now your code just works as it is. Maybe try running the given example and see if it changes anything, it did for me.

+ Code Snippet

a$="&&dark &&basic &&pro &&by &&lee bamber"
b$=first token$(a$,"&&")
print b$
repeat
      b$=next token$("&&")
      print b$
until b$=""
do
loop

Back to top

Profile PM Email

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 7th May 2010 00:31

Link

I agree. I copied string to clipboard and program ran just fine displaying each token.

Problem is probably more to do with vb proggy. Maybe not writing to clipboard properly. What do you get when you paste what you think is in your clipboard into notepad? What do you see in dbpro if your program simply writes out ClipboardData$

Boo!

Back to top

Profile PM Website

tgm4l

17

Years of Service

User Offline

Joined: 21st Oct 2007

Location:

Posted: 7th May 2010 04:28

Link

I changed the code to

+ Code Snippet

Dim ObjectPath$(500)
set text font "Arial"
set text size 12

Gosub GetFilePaths

 wait key

GetFilePaths:

	ClipboardData$ = Get Clipboard$()
	

	Separator$=first token$(ClipboardData$,";")

	Count = 0

	repeat

     	 Separator$=next token$(";")
      
     	 If Separator$ <> ""
      
      		ObjectPath$(Count) =  Separator$
      		
      		print objectpath$(count)
      
     	 endif
     	 
 
      
	until Separator$=""
	
	print "finished"

Return

and now it works as intended. Thankd for the help everyone =).

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / "Doesn't equal" with strings? (or another problem?)

Sorry your browser is not supported!

Newcomers DBPro Corner / &quot;Doesn't equal&quot; with strings? (or another problem?)

Newcomers DBPro Corner / "Doesn't equal" with strings? (or another problem?)