Threaded Mode | Linear Mode

ZiNgA BuRgA · 11/06/2007 03:31 AM

Cool, great work :)

Originally, I was just gonna add a line like:

Code:

strCmd = Replace$(Trim$(Command$), """", "")

to allow opening of files from explorer.

Great work though :P Good luck with the XML thingy that I never bothered with, hahaha.

Ac_K · 11/06/2007 11:14 AM

Sorry but I am not better than you in the VB!
For the opening of the RCO in the windows explorateur I use a RegKey !

But I have a question for her function =)!
For obtain the values of the text (by language) the function is :

Code:

GetTextData

???

But this functions return many chars !
See this file : http://www.zshare.net/download/2231629f062924/

I don't know how delete this char too !
Thanks for her futur answer...

ZiNgA BuRgA · 11/06/2007 08:53 PM

I'll have to check. (not at home now, so I can't)

From memory, yes, that's the function.
Note that it returns a Unicode string, not an ASCII one - the file you uploaded looks fine for me.
[Image: untitledhs9.jpg]

What version of Windows are you using?

Ac_K · 12/06/2007 11:20 AM

Your fonction return a 0x00 at the end of the string...
And the annoter error come from the use RCO for generate the XML (It's old :p)

So, I Resolve my problem by the simple function :

Code:

Left(GetTextData(intII, cboTextLang.ListIndex), Len(GetTextData(intII, cboTextLang.ListIndex)) - 1)

Thanks for your help ! ^^

ZiNgA BuRgA · 12/06/2007 09:09 PM

Ac_K Wrote:Your fonction return a 0x00 at the end of the string...

Strings typically end with a null byte. Maybe my thing goes over one character... should just change the GetTextData() function then.

Ac_K Wrote:So, I Resolve my problem by the simple function :
Code:
Left(GetTextData(intII, cboTextLang.ListIndex), Len(GetTextData(intII, cboTextLang.ListIndex)) - 1)

I don't recommend that, primarily because you're calling GetTextData() twice. Something like this would work better:

Code:

Dim strTemp As String
strTemp = GetTextData(intII, cboTextLang.ListIndex)
Left$(strTemp, Len(strTemp) - 1)

Or, probably better:

Code:

Replace$(GetTextData(intII, cboTextLang.ListIndex), vbNullChar, vbNullString)

Good luck!

Ac_K · 13/06/2007 02:58 AM

Yeah Thanks a lot !!

Code:

Replace$(GetTextData(intII, cboTextLang.ListIndex), vbNullChar, vbNullString)

This function work fine !

At this moment I have add the multilanguage... and the export XML works... I could do the end of the multilanguage, the import XML and add the vshcol program to RCO Editor... but after that... I have no idea ! :p

ZiNgA BuRgA · 13/06/2007 04:43 AM

Hmm, actually, I had a look. No, the code won't generate extra nulls.

It's to do with Unicode strings. PSP stores the text as Unicode. If you "convert" to ASCII, you'll loose stuff from some languages. Just make sure you're outputting a Unicode XML, not an ASCII one.

zuhair90 · 12/09/2007 07:25 AM

nice job i can say... but still i don understand how to use those things... any easier way for understanding this???

ZiNgA BuRgA · 12/09/2007 03:30 PM

Understand the sourcecode? It's a mess - the main reason why I don't really want to continue with it...

roberth · 13/09/2007 03:43 AM

ZiNgA BuRgA Wrote:Understand the sourcecode? It's a mess - the main reason why I don't really want to continue with it...

im to confused to read my own writing...i know, ill et someone else do it :P

Threaded Mode \| Linear Mode [PSP] [Sourcecode] RCO Editor v1.14d
Author	Message