PureBasic Forums - English

Code updated For 5.20+

hi...
sorry my english...


they try is code...
; ;/////////////////////////////////////////////////////////
; Procedure.s GetMenuItemText(menu,item)
; b$=Space(127)
; a=GetMenuString_(menu,item,@b$,127,#MF_BYCOMMAND)
; ProcedureReturn Mid(b$,1,a)
; EndProcedure ...

It is early and I haven't had my coffee yet but I don't see any benefit over the built in StringField() function?

HI Karbon

TRY IS CODE, change idea.

thanks dom....
sorry my english...



Procedure.s stringfield2(var$,indice,p$)
lp=Len(p$)
bak=1
Repeat
x=FindString(var$+p$,p$,bak+1)
If x
c ...

Code updated For 5.20+

it's code i am use all time...



Procedure.s stringfield2(var$,indice,p$)
lp=Len(p$)
bak=1
Repeat
x=FindString(var$+p$,p$,bak+1)
If x
c+1
If c=indice
ProcedureReturn Mid(var$,bak,x-(bak))
EndIf
bak=x+lp
EndIf
Until x=0
EndProcedure


;thanks dom