XPSE

- page 1 -

E.T.

...si je alle Zeilen avec qui neuen Funktion, comment:

Verg_Dat_2$ = GetText.Listview(liste2&, &loop, 1)

auskommentiere, wird "nur encore

" Claire angemeckert:

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

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

avertissement: faute im Assembler.
Mapfile: angewiesen

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

Run-Prf: Error, interpretieren avec Warnungen pas empfohlen.
XPSE:>

Gibt car GetText.Listview(lListview,lColumn,lRow) keinen String zurück ???

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...

Gibt doch encore ne...aucune Claire [...]

Schreib derweil vlt. simple rtlZeroMemory(handle,anzBytes). ^ ^

Frisch pour Faible ist incidemment toujours gecleart.

iF, Beitrag=56430, Zeitpunkt=15.03.2010

E.T.

Gibt doch encore ne...aucune Claire [...]

pas so grave, habs auskommentiert.
avec

...str(GetText.Listview(liste1&, &loop, 0))

venez wieder:

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

avertissement: faute im Assembler.
Mapfile: angewiesen
...

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...

- page 2 -

Str( erwartet Long comme paramètre, GetText.Listview( gibt mais une String zurück.

E.T.

Hm, XPSE empfielt mir mais folgendes:

...
avertissement: Zuweisung entre String et Long.
Funktion: VERGLEICHEN
Abhilfe: STR
...

, si je GetText.Listview(.. einer String-Variable (Verg_Dat_2$) zuweise

GetText.Listview( gibt mais une String zurück. >>> SICHER ???

bof, wird déjà encore...

[offtopic]...muss seulement la fois à l'attaque, dans qui finstere nuit

[/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...

oui, entier sûrement. tu peux entier normal:

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")
imprimer gettext$(grid,0,0);"-"
imprimer test(grid);"-"
waitinput
end

nproc test

    parameters grid&
    return getText.Listview(grid&,0,0)

endproc

- qui avertissement wird autre chose betreffen, Du wirst irgendwo un Long einem String zuweisen.

iF, Beitrag=56434, Zeitpunkt=15.03.2010

E.T.

...
- qui avertissement wird autre chose betreffen, Du wirst irgendwo un Long einem String zuweisen.

déjà bien sûr, mais wohin ???

nProc comparer

    Déclarer Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    Alles autre ist global declariert
    Alles avec **** hatte je déjà auskommentiert
    Zaehler1& = GetCount(liste1&)-1****

    WhileLoop 0,GetCount(liste1&)-1

        Claire Vergl_Str1$, Verg_Dat_1$, Verg_Dat_2$
        Vergl_Str1$ = GetText.Listview(liste1&, &loop, 0)
        Verg_Dat_1$ = GetText.Listview(liste1&, &loop, 1)
        SetText Status&, 0,  ">>> Vergleiche : " + Verg_Dat_1$****

        WhileLoop 0,GetCount(liste2&)-1

            Vergl_Str2$ = GetText.Listview(liste2&, &loop, 0)

            Si Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.Listview(liste2&, &loop, 1)

                Si non Verg_Dat_1$ = Verg_Dat_2$

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

                EndIF

            EndIf

        Endwhile

        SetText Status&, 1,  "# "+str(&loop+1) + " > " + str(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

je seh wohl cela sais avant lauter Schnee pas plus

Ist einziges nproc im Programme. dans XProfan läufts wunderbar, seulement arrêt trop lente.
et oui c'est ca DEN Unterschied voulais je gern la fois voyons

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...

Geschwindigkeitstests wirken seulement richtig chez Long, sobald on Float et/ou bien String utilise, ists seulement encore threadsicher mais pas plus sooo vite.

SetText Status& devrait SetText(Status appeler, 3-paramètre-SetText et SetText comme Befehl dans nProcs gibt es oui pas.

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

qui 0 ist ne...aucune String, tambour qui (korrekte) annonce. ^ ^

E.T.

So, alles rausgeschmissen, quoi pas lebenswichtig ist:

nProc comparer

    Déclarer Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    Zaehler1& = GetCount(liste1&)-1

    WhileLoop 0,GetCount(liste1&)-1

        Vergl_Str1$ = GetText.Listview(liste1&, &loop, 0)
        Verg_Dat_1$ = GetText.Listview(liste1&, &loop, 1)

        WhileLoop 0,GetCount(liste2&)-1

            Vergl_Str2$ = GetText.Listview(liste2&, &loop, 0)

            Si Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.Listview(liste2&, &loop, 1)

                Si non Verg_Dat_1$ = Verg_Dat_2$

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

                EndIF

            EndIf

        Endwhile

    Endwhile

ENDPROC

Fazit: gleiche annonce :

avertissement: Zuweisung entre String et Long.
Funktion: VERGLEICHEN
Abhilfe: STR
Mapfile: angewiesen

je verstehs pas

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...

Schaue je mir juste aujourd'hui soir genauer à!

Öhm, si je alle Variablen deklariere qui Du dans qui Proc utilise, fonctionne es sans faute par:

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

Dossier: test.xprf (22)
Objektcode: Creating object: TEST.EXP
Creating library: TEST.LIB
Stats: Si[68], Proc[54], Klassen[0], Assembler[54]
Runtime: "prfrun32.exe", trouvé
Kompiler: "profcomp.exe", trouvé
[C]ompile [I ]nterpr [L]ink [R]unPrc Run[E]xe [S]ource [H]ilfe

XPSE:> Kompilieren: Code: 0 [erfolg] (140202 B PRC)
XPSE:> Linken: Code: 0 [erfolg] (566 KB EXE)
XPSE:> Ausfuehren: Code: 0 [erfolg]
XPSE:>

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

nProc comparer

    Déclarer liste3&,liste2&,liste1&,Zaehler1&,Verg_Dat_1$, Verg_Dat_2$, Vergl_Str1$, Vergl_Str2$, Vergl_Pass&, Pos_L1&
    Zaehler1& = GetCount(liste1&)-1

    WhileLoop 0,GetCount(liste1&)-1

        Vergl_Str1$ = GetText.Listview(liste1&, &loop, 0)
        Verg_Dat_1$ = GetText.Listview(liste1&, &loop, 1)

        WhileLoop 0,GetCount(liste2&)-1

            Vergl_Str2$ = GetText.Listview(liste2&, &loop, 0)

            Si Vergl_Str1$ = Vergl_Str2$

                Verg_Dat_2$ = GetText.Listview(liste2&, &loop, 1)

                Si non Verg_Dat_1$ = Verg_Dat_2$

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

                EndIF

            EndIf

        Endwhile

    Endwhile

ENDPROC

Wobei je là aussi seulement den Warnungen de XPSE gefolgt suis et deklariert habe, quoi il comme fehlend bemeckerte.

qui faute devrait donc vlt. dans einer anderen Proc versteckt son.

E.T.

maintenant versteh je gar nix plus:
si je deinen Voir le texte source aus vorigem poste hernehme, sieht mon XPSE-Ausgabe pas comment deine aus, mais:

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

Dossier: e:profan 11-proggs
proc_test
proc_test.prf (22)

avertissement: Zuweisung entre String et Long.
Funktion: VERGLEICHEN
Abhilfe: STR

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

XPSE:>

Hab doch mais qui gleiche Version, seulement chez mir steht viel moins dans qui Ausgabe

trouvé: XPSE nochmal récente "installiert" (gleiche Versions-numéro), maintenant hauts hin

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...

22.03.2010 ▲