| |
|
|
- Page 1 - |
|
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 ▲ |
|
|
|
|
| |
|
- Page 1 - |
|
| 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
|
|
|
| |
|
|
| |
|
- Page 2 - |
|
|
Jörg Sellmeyer | Hello Frank, class! Kannste the with opportunity again one little to comment? somehow is this Assemblerkrams for me Chinesisch in Bags. Greeting Jörg |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 03/13/05 ▲ |
|
|
|
|
Frank Abbing | Hi,
The used tab are so comments. The Pushs lay values on the Stack ex, The Pops fetch tappt im dunkeln again down. the Invoke calls a function on, circa numbers in Strings To wandeln. the Call calls another List view.dll-function on. before it The Pushs are The Parameter, in umgekehrter Order on the Stack stored. |
|
|
| |
|
|