(1.069)  Login

English
Forum

Done: "GetText" in nproc

 
- Page 1 -



E.T.
In XProfan:
CompileMarkSeparation
...
Vergl_Str2$ = @GetText$(list2&, &loop, 0)
...

Anm. list2& is a GridBOX (2 Split)

as nproc-function find I only GetString(lList,lPos)  or. GetText(lH) , what naturally so not working .
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
03/14/10  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



 
- Page 1 -



E.T.
...if I any Lines with the new function, How:
CompileMarkSeparation
Verg_Dat_2$ = GetText.List view(list2&, &loop, 1)

auskommentiere, becomes "nur yet " Clear angemeckert:


XProfan 11.2.1.8a.62 Praekompiler [XPSE]
copyright (C) 1998-2010 XProfan.com, built DE.

File: e:profane 11-proggsduplfinderduplpicfinder.prf (117)
Objektcode: DuplPicFinder.asm(244) : Error A2235: Syntax error
: CLEAR
DuplPicFinder.asm(320) : Error A2235: Syntax error: CLEAR

warning: Error in the Assembler.
Mapfile: dependent

[C]ompile [Interpr [L]ink [R]unPrc Run[E]xe [s]ource [H]ilfe

Run-Prf: Error, interpret with Warnungen not recommended.
XPSE:>


gives because GetText.List view(lListview,lColumn,lRow)  none String back ???
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
03/15/10  ▲
 



gives still no Clear  [...]  .

Schreib derweil vlt. simply rtlZeroMemory(lever,anzBytes). ^^

freshly to Dim is incidentally always gecleart.
 
03/15/10  ▲
 




E.T.
iF, Beitrag=56430, Zeitpunkt=15.03.2010
gives still no Clear  [...]  .


not so bad, habs auskommentiert.
with
CompileMarkSeparation
...st(GetText.List view(list1&, &loop, 0))

comes again:


...
DuplPicFinder.asm(730) : Error A2235: Syntax error: GETTEXT
DuplPicFinder.asm(14083) : Error A2061: symbol already defined
: __xeTS_331r

warning: Error in the Assembler.
Mapfile: dependent
...
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
03/15/10  ▲
 



 
- Page 2 -


Str( expects Long as Parameter, GetText.List view( gives but a String back.
 
03/15/10  ▲
 




E.T.
Hm, XPSE empfielt me but the following:


...
warning: Zuweisung between String and Long.
function: VERGLEICHEN
remedy: STR
...
, if I GetText.List view(..  of/ one String-Variable (Verg_Dat_2$) zuweise

GetText.List view( gives but a String back. >>> SICHER ???

Well, becomes already yet...

[offtopic]...must first time go, into finstere night [/offtopic]
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
03/15/10  ▲
 



Yes, integrally sure. You can integrally normal:
CompileMarkSeparation
cls
long grid=create("gridbox",hwnd,"Links;0;180;Mitte;2;100;Rechts;1;80",0,0,50,300,300)
addstring(grid,"HalloHalloHalloHallo|Welt|Test")
print gettext$(grid,0,0);"-"
print Test(grid);"-"
waitinput
end

nproc Test

    parameters grid&
    return getText.List view(grid&,0,0)

endproc
- The warning becomes something other concern, you become somewhere one Long one String allocate.
 
03/15/10  ▲
 




E.T.
iF, Beitrag=56434, Zeitpunkt=15.03.2010
...
- The warning becomes something other concern, you become somewhere one Long one String allocate.


already clear, but where ???
CompileMarkSeparation
nProc Compare

    Declare Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    everything others is global declariert
    everything with **** having I already auskommentiert
    Zaehler1& = GetCount(list1&)-1****

    WhileLoop 0,GetCount(list1&)-1

        Clear Vergl_Str1$, Verg_Dat_1$, Verg_Dat_2$
        Vergl_Str1$ = GetText.List view(list1&, &loop, 0)
        Verg_Dat_1$ = GetText.List view(list1&, &loop, 1)
        SetText Status&, 0,  ">>> compare : " + Verg_Dat_1$****

        WhileLoop 0,GetCount(list2&)-1

            Vergl_Str2$ = GetText.List view(list2&, &loop, 0)

            If Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.List view(list2&, &loop, 1)

                Ifnot Verg_Dat_1$ = Verg_Dat_2$

                    Inc Vergl_Pass&
                    AddStrings(list3&, Verg_Dat_1$ + "|" + Verg_Dat_2$)

                EndIF

            EndIf

        EndWhile

        SetText Status&, 1,  "# "+st(&loop+1) + " > " + st(100/Zaehler1&*(&loop+1)) + " %"****
        Sendmessage(ProgressBar&,$0400+2,100/Zaehler1&*(&loop+1),0)****

    EndWhile

    SetText Status&, 1, Date$(0)****
    Sendmessage(ProgressBar&,$0400+2,0,0)****

ENDPROC

I seh well the white to lauter snow not any more

is einziges nproc in the program. In XProfan runs wonderful, only hold too slow.
and very DEN Difference wished I happy times see
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
03/16/10  ▲
 



Geschwindigkeitstests wirken first correctly. with Long, once one Float and/or String uses, ists only yet threadsicher but not any more sooo quick.

SetText Status& should SetText(status hot, 3-Parameter-SetText and SetText as commands in nProcs there Yes not.

SetText Status&, 0, ">>> compare : " + Verg_Dat_1$****

The 0 is no String, thatswhy The (korrekte) Message. ^^
 
03/16/10  ▲
 




E.T.
so, everything rausgeschmissen, what not vital is:
CompileMarkSeparation
nProc Compare

    Declare Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    Zaehler1& = GetCount(list1&)-1

    WhileLoop 0,GetCount(list1&)-1

        Vergl_Str1$ = GetText.List view(list1&, &loop, 0)
        Verg_Dat_1$ = GetText.List view(list1&, &loop, 1)

        WhileLoop 0,GetCount(list2&)-1

            Vergl_Str2$ = GetText.List view(list2&, &loop, 0)

            If Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.List view(list2&, &loop, 1)

                Ifnot Verg_Dat_1$ = Verg_Dat_2$

                    Inc Vergl_Pass&
                    AddStrings(list3&, Verg_Dat_1$ + "|" + Verg_Dat_2$)

                EndIF

            EndIf

        EndWhile

    EndWhile

ENDPROC

Fazit: same Message :

warning: Zuweisung between String and Long.
function: VERGLEICHEN
remedy: STR
Mapfile: dependent


I verstehs not
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
03/16/10  ▲
 



Look I me same today evening accurate on!
 
03/16/10  ▲
 



Öhm, if I any variables deklariere The You in Proc uses, runs it without Error through:

XProfan 11.2.1.8a.62 Praekompiler [XPSE]
copyright (C) 1998-2010 XProfan.com, built DE.

File: Test.xprf (22)
Objektcode: Creating object: TEST.EXP
Creating library: TEST.LIB
Stats: If[68], Proc[54], classes[0], Assembler[54]
Runtime: "prfrun32.exe", found
Compiler: "profcomp.exe", found
[C]ompile [I ]nterpr [L]ink [R]unPrc Run[E]xe [s]ource [H]ilfe

XPSE:> Compile: code: 0 [success] (140202 B PRC)
XPSE:> left: code: 0 [success] (566 KB EXE)
XPSE:> Ausfuehren: code: 0 [success]
XPSE:>

CompileMarkSeparation
 {$cle}
cls
waitinput
end
Gemerkt/Separiert of http://XProfan.com/t/?8130

nProc Compare

    Declare list3&,list2&,list1&,Zaehler1&,Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    Zaehler1& = GetCount(list1&)-1

    WhileLoop 0,GetCount(list1&)-1

        Vergl_Str1$ = GetText.List view(list1&, &loop, 0)
        Verg_Dat_1$ = GetText.List view(list1&, &loop, 1)

        WhileLoop 0,GetCount(list2&)-1

            Vergl_Str2$ = GetText.List view(list2&, &loop, 0)

            If Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.List view(list2&, &loop, 1)

                Ifnot Verg_Dat_1$ = Verg_Dat_2$

                    Inc Vergl_Pass&
                    AddStrings(list3&, Verg_Dat_1$ + "|" + Verg_Dat_2$)

                EndIF

            EndIf

        EndWhile

    EndWhile

ENDPROC
where I there too only whom Warnungen of XPSE followed be and declared have, what it as fehlend bemeckerte. The Error should therefore vlt. in a others Proc cache his.
 
03/16/10  ▲
 




E.T.
now versteh I quite nothing More:
If I your View source from vorigem mail hernehme, sees my XPSE-spending not How your from, separate:



XProfan 11.2.1.8a.62 Praekompiler [XPSE]
copyright (C) 1998-2010 XProfan.com, built DE.

File: e:profane 11-proggs
proc_test
proc_test.prf (22)

warning: Zuweisung between String and Long.
function: VERGLEICHEN
remedy: STR

[C]ompile [I ]nterpr [L]ink [R]unPrc Run[E]xe [s]ource [H]ilfe

XPSE:>

Have still but the same Version, only me standing plenty less in the spending

found: XPSE again new "installiert" (same Versions-number), now hauts there  
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
03/22/10  ▲
 



◄
12

Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

11.355 Views

Untitledvor 0 min.
Ernst05/07/16
funkheld04/11/16
Peter Max Müller10/10/14
Andreas Koch12/16/13
More...

Themeninformationen

this Topic has 3 subscriber:

iF (11x)
E.T. (9x)
Jörg Sellmeyer (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie