| |
| |
|
Jörg
Sellmeyer | Hello Frank,
could You Perhaps a function to fortlaufenden Numbering of the Split install?
about so:
CompileMarkSeparation
Proc SetNumbers
Parameters LV&,Spalte&,hdl&,Text$
Declare nr$,Lines&,00$
Lines& = GetLines(LV&)
00$ = MkStr$("0",Len(Str$(Lines&)))
If %pcount = 1
WhileLoop 0,Lines& -1
Case IsKey(27):Break
nr$ = Format$(00$,&Loop)
SetItemText(LV&,Addr(nr$),Spalte&,&Loop)
Wend
ElseIf %pcount = 3
WhileLoop 0,Lines& -1
Case IsKey(27):Break
nr$ = Format$(00$,&Loop)
SetItemText(LV&,Addr(nr$),Spalte&,&Loop)
SetText hdl&,Text$ + nr$
bei hoher Geschwindigkeit erübrigt sich das mit dem Text evtl. aber so ist eine
Fortschrittsanzeige möglich
Wend
EndIf
ENDPROC
I had recently the pleasure some -zigtausend Lines To numerieren.
In Assembler lasts the probably only Millisekunden.
with Profan have I to 10 minutes with ca. 50000 aborted.
Greeting
Jörg |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 03/02/05 ▲ |
|
| |
|
|
Frank
Abbing | Hello Jörg,
clear, ought to not too costly his.
though werkle I straight at a Add-On-Dll for List view.dll. the has supreme priority! |
|
| |
| |
| |
|
|
 | Gib it still simply NEN xpia-example 
salvo, iF |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
could I naturally make. but I stops so a Function for the List view.dll for very meaningfully. therefore I will tappt im dunkeln there take in.  |
|
| |
| |
| |
|
|
| correctly. - find so did i meaningfully!
so one Beispielchen would nevertheless very interestingly and well with your ASM-Examples aufgehoben - or even here.
it would hold show How one The List view.DLL (where it Yes still often circa many Entries goes) with XPIA together benefit can.
salvo, iF |
|
| |
| |
| |
|
|
Frank
Abbing | Hi.
[quote:67a10e7051]it would hold show How one The List view.DLL (where it Yes still often circa many Entries goes) with XPIA together benefit can. [/quote:67a10e7051]
is still only a Loop, in the a Message over ands over again called becomes. Weder interestingly, yet for sonderlich lehrreich. and only integrally little Assembler, for More Structures...  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | >Weder interestingly, yet for sonderlich lehrreich.
Ooch... mach still time nevertheless :roll: |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03/03/05 ▲ |
|
| |
|
|
| @Jörg: You hold Frank solid - I kitzle it on de Füße To it the ASM-25-Zeiler ausm face falls. 
salvo, iF  |
|
| |
| |
| |
|
|
CB | OhGottohGott
I habs me straight attempts, figurative vorzustellen, How the well looks likes, if Frank laughing and giggling Assembler getaway  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | the would still something!  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03/04/05 ▲ |
|
| |
|
|
Frank
Abbing | Hi,
How, what? an Verschwörung?
I can The function gladly here post, as they is done. Have but first yet others things To do.  |
|
| |
| |
| |
|
|
Frank
Abbing | Hi,
The function is ready and means SetLineNumbers().
here the code, I hope he's verständlich:
CompileMarkSeparationinvoke SendMessage,[ebp+8],4100,0,0
mov ecx,eax ; ecx = Anzahl Zeilen
xor edi,edi ; edi = Zeile = 0
.if ecx!=0
mov esi,[ebp+8] ; esi = Handle
mov edx,[ebp+12] ; edx = Startzeilennummer
routea:
push ecx
push edx
push edi
push edi
push [ebp+16]
push OFFSET unwichtig5
push [ebp+8]
invoke dwtoa,edx,addr unwichtig5
call SetItemText
pop edi
pop edx
pop ecx
inc edx
inc edi
cmp ecx,edi
jne routea
xor eax,eax
.endif
|
|
| |
| |
| |
|
(931)
Deutsch
English
Français
Español
Italia