parser

ragdog · November 25, 2007, 02:31:29 PM

hi

i have problem with parsing from editbox line to line skip 0Dh,0Ah

print :
MessageBox text1
MessageBox text2
MessageBox text3
MessageBox text4
....
...
..

can your help please?

my code is Attached

greets
ragdog

ragdog · November 25, 2007, 06:39:14 PM

hi

i have solved my problem and have a another problem with print the last line

Code Select


       invoke GetDlgItemText,hWnd,1002,addr hSrcBuffer,sizeof hSrcBuffer
          mov esi,offset hSrcBuffer
	      
 @Back:
          mov	ah,byte ptr [esi]

          cmp	ah,13
          je	@NextLine
          cmp	ah,10
          je	@NextLine
	      
          mov	edx,1024
          mov	edi,offset hDestBuffer
          mov	ah,byte ptr [esi]

@1:
          mov	byte ptr [edi],ah
          dec	edx
           jz	@ret
          inc   esi
          inc	edi
          mov	ah,byte ptr [esi]
          cmp	ah,0Dh
          jne	@1
          mov	byte ptr [edi],0

        invoke MessageBox,hWnd,addr hDestBuffer,0,MB_OK
        
 @NextLine:
           inc	esi
          jmp	@Back
	 @ret:

can your help fix this problem

thanks in forward

ragdog

[attachment deleted by admin]

Tedd · November 25, 2007, 07:43:42 PM

The last line ends with 0, so you need to check for that (as well as 13 and 10).

Mark Jones · November 25, 2007, 07:50:23 PM

Also you don't really need to check for both the CR and LF unless expecting to handle Macintosh-formatted text files; the LF is common to both PC and UNIX if my memory serves me correctly.

Have you single-stepped the code in Ollydbg yet? That's how I solve most of my "unintentional bugs." :lol

Tedd · November 25, 2007, 08:18:30 PM

Windows/Dos: CR,LF
Linux: LF
Mac: LF

(Mac used to be CR, so it's often quoted as being so, but Mac is now based on BSD so it's LF)

ragdog's code needs to check for CR and LF (separately) as it first hits the CR, skips over it for the 'next' line but immediately meets the LF and so then skips over that for the (actual start of the) next line - this could be done in one, but it still works as is.

ragdog · November 25, 2007, 08:19:32 PM

thanks for your reply

Code Select


        invoke GetDlgItemText,hWnd,1002,addr hSrcBuffer,sizeof hSrcBuffer
           mov esi,offset hSrcBuffer
    @Back:
	   mov	ah,byte ptr [esi]
           mov	edx,1024
	   mov	edi,offset hDestBuffer
	   mov	ah,byte ptr [esi]
       @@:
           mov	byte ptr [edi],ah
           cmp	ah,0
	    je	@F
	   dec	edx
	    jz	@ret
           inc  esi
           inc	edi
           mov	ah,byte ptr [esi]
           cmp	ah,0Dh
	   jne	@B
	   mov	byte ptr [edi],0  
        invoke  MessageBox,hWnd,addr hDestBuffer,0,MB_OK
	   inc	esi; for 0Dh
	   inc  esi; for 0Ah
	   jmp	@Back
    @@:
	invoke   MessageBox,hWnd,addr hDestBuffer,0,MB_OK
  @ret:

best regards
ragdog

ragdog · November 25, 2007, 10:08:08 PM

hi ::)

i have coded a parser sensless now
i wanted to show every line in the edit-box in one of the message-box
my edit-box breaks at the windowmargin if i write continouse with the parser
does it show me the interruped line
but i want it to have it single

could you help me?
i want to format every single line from the edit-box

like this format

< text: line1 >
< line2 >
< line3 >
< line4 >
...
..
.

here is the formatalgo for a single line:

Code Select


.data
szformat db "<  text: *                                 >",0

.data?
szWord       dd ?                   ; pointer to entered word
szBuffer     db 64 dup(?)           ; ascii string buffer 

.code

Format proc lpszSrc:DWORD,lpszDest:DWORD,lpszFrm:DWORD
	
    mov eax, lpszSrc
    mov szWord,eax                      ; save location of entered word
    mov eax,lpszFrm                     ; copy format to eax
    lea esi,[eax]                       ; load addresses of string locations
    lea edi,szBuffer                    ; into source and dest registers
    mov ecx,szWord                      ; szWord already a pointer, use as ecx
@@: movsb                               ; copy byte edi<--esi, inc both ++
    cmp byte ptr [esi],"*"              ; look for the asterisk
    jnz @B                              ; keep copying until found
@@: mov al,byte ptr [ecx]               ; fetch a byte of the new word
    cmp al,0                            ; are we at end of new word?
     jz @F                              ; if so, break out
    inc ecx                             ; else point to next byte of new word
    mov byte ptr [edi],al               ; put byte in the destination buffer
    inc esi                             ; and increment the
    inc edi                             ; other two pointers
    jmp @B                              ; and loop back
@@: movsb                               ; finish copying rest of string
    cmp byte ptr [edi-1],00             ; wait for ending null to be written
    jnz @B                              ; and loop
 invoke lstrcpy,lpszDest ,addr szBuffer 
 invoke RtlZeroMemory,addr szBuffer ,sizeof szBuffer 
	ret
Format endp

thanks in forward sorry for my misunderstanding

ragdog

Tight_Coder_Ex · November 25, 2007, 10:27:31 PM

These are the changes I've made to get working what you require

Code Select

lpFormat    db "test1",0Dh,0Ah
            db "test2",0Dh,0Ah
            db "test3",0Dh,0Ah
            db "test4",0Dh,0Ah
	    db 0


        invoke GetDlgItemText,hWnd,1002,addr hSrcBuffer,sizeof hSrcBuffer

          mov	edi,offset hSrcBuffer
	  mov	ecx, eax
	  mov	 al, 10
   
    	@@:	cmp	byte ptr [edi], 0
		jz	@F

	     	mov	ebx, edi
		repnz	scasb
		mov	byte ptr [edi - 2], 0

        	push	ecx
		push	eax
		invoke MessageBox,hWnd,ebx,0,MB_OK
		pop	eax
		pop	ecx
 		jmp	@B
	 @@:

ragdog · November 25, 2007, 10:33:57 PM

thanks Tight_Coder_Ex for the small parser code

i have a another problem

Code Select


i want to format every single line from the edit-box

like this format

<  text: line1                             >
<        line2                             >
<        line3                             >
<        line4                             >
...
..
.

greets
ragdog

Tight_Coder_Ex · November 25, 2007, 10:39:48 PM

One way of doing it is statically like

Code Select

lpFormat    db "text:  line1",0Dh,0Ah
            db "       line2",0Dh,0Ah
            db "       line3",0Dh,0Ah
            db "       line4",0Dh,0Ah
    db 0

or do you need to do it in code?

ragdog · November 25, 2007, 10:50:20 PM

no i mean get any text from multiline editbox and format this line to line

example from editbox :

Code Select


Format proc                                                  
lpszSrc:DWORD,lpszDest:DWORD,lpszFrm:DWOR                    
D                                                            
                                                             
    mov eax, lpszSrc                                         
    mov szWord,eax                      ; save location of   
entered word

to atached example

[attachment deleted by admin]

Tight_Coder_Ex · November 26, 2007, 01:21:10 AM

Maybe you could demonstrate pictorially what you mean. The way I understand it is;

Text Box

This is going to be a sample demonstration

Output would be

This
is
going
to
be
a
sample
demonstration

ragdog · November 26, 2007, 03:42:41 PM

hi

does any have an idea to solve my problem? :'(

my current source is added

greets
ragdog

[attachment deleted by admin]

MichaelW · November 26, 2007, 06:53:05 PM

Among other problems your dialog window procedure and your format procedure are failing to preserve the values of EBX, ESI, and EDI. Hopefully, this code will do what you are asking for.

Code Select


; Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«
Â  Â  include \masm32\include\masm32rt.inc
; Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«

Â  Â  .data
Â  Â  Â  hInstance dd 0
Â  Â  Â  hWndEditÂ  dd 0
Â  Â  Â  hWndListÂ  dd 0
Â  Â  Â  sz1Â  Â  Â  Â db 100 dup(0)
Â  Â  Â  sz2Â  Â  Â  Â db 100 dup(0)
Â  Â  .code

; Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«

DlgProc proc hDlg:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD

Â  Â  push ebx

Â  Â  SWITCH uMsg

Â  Â  Â  CASE WM_INITDIALOG

Â  Â  Â  Â  invoke GetDlgItem, hDlg, 101
Â  Â  Â  Â  mov hWndEdit, eax
Â  Â  Â  Â  invoke GetDlgItem, hDlg, 102
Â  Â  Â  Â  mov hWndList, eax

Â  Â  Â  CASE WM_COMMAND

Â  Â  Â  Â  SWITCH wParam

Â  Â  Â  Â  Â  CASE 103

Â  Â  Â  Â  Â  Â  xor ebx, ebx
Â  Â  Â  Â  Â  @@:
Â  Â  Â  Â  Â  Â  invoke RtlZeroMemory, ADDR sz1, 100
Â  Â  Â  Â  Â  Â  mov WORD PTR sz1, 100
Â  Â  Â  Â  Â  Â  invoke SendMessage, hWndEdit, EM_GETLINE, ebx, ADDR sz1
Â  Â  Â  Â  Â  Â  test eax, eax
Â  Â  Â  Â  Â  Â  jz @F
Â  Â  Â  Â  Â  Â  invoke szTrim, ADDR sz1
Â  Â  Â  Â  Â  Â  invoke RtlZeroMemory, ADDR sz2, 100
Â  Â  Â  Â  Â  Â  invoke szMultiCat, 3, ADDR sz2, chr$("<"), ADDR sz1, chr$(">")
Â  Â  Â  Â  Â  Â  invoke SendMessage, hWndList, LB_ADDSTRING, 0, ADDR sz2
Â  Â  Â  Â  Â  Â  inc ebx
Â  Â  Â  Â  Â  Â  jmp @B
Â  Â  Â  Â  Â  @@:

Â  Â  Â  Â  Â  CASE IDCANCEL

Â  Â  Â  Â  Â  Â  invoke EndDialog, hDlg, NULL

Â  Â  Â  Â  ENDSW


Â  Â  Â  CASE WM_CLOSE

Â  Â  Â  Â  invoke EndDialog, hDlg, NULL

Â  Â  ENDSW

Â  Â  pop ebx
Â  Â  return 0

DlgProc endp

; Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«
start:
; Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«

Â  Â  invoke GetModuleHandle, NULL
Â  Â  mov hInstance, eax

Â  Â  Dialog "Test", \
Â  Â  Â  Â  Â  Â "Courier New",8, \
Â  Â  Â  Â  Â  Â WS_OVERLAPPED or WS_SYSMENU or DS_CENTER, \
Â  Â  Â  Â  Â  Â 3,0,0,300,225,1024

Â  Â  DlgEdit ES_MULTILINE or WS_VSCROLL or WS_HSCROLL or \
Â  Â  Â  Â  Â  Â  ES_AUTOVSCROLL or ES_AUTOHSCROLL or \
Â  Â  Â  Â  Â  Â  ES_WANTRETURN or WS_BORDER, \
Â  Â  Â  Â  Â  Â  10,10,278,80,101

Â  Â  DlgList WS_VSCROLL or WS_BORDER,10,100,278,80,102

Â  Â  DlgButton "Format",0,125,180,50,15,103

Â  Â  CallModalDialog hInstance,0,DlgProc,NULL

Â  Â  exit
; Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«Â«
end start

ragdog · November 26, 2007, 07:32:55 PM

thanks MichaelW for you reply and code :U i studdy this

best regards
ragdog

re:

this works perfect thank you :U :U

News:

parser