Code: Select all
Procedure.s ip()
ip$=HostnameToIP("P")
ProcedureReturn ip$
EndProcedure
InitNetwork()
MACadr$=GetMacAddress("192.168.1")
; cmd$="mkdir %TEMP%\@#ip()#@"
cmd$="rename %TEMP%\@#ip()#@ %TEMP%\@#RemoveString("+Chr(34)+MACadr$+Chr(34)+", "+Chr(34)+":"+Chr(34)+")#@"
Repeat
oldcmdelimerstart=cmdelimerstart:oldcmdelimerend=cmdelimerend
; i+1
cmdelimerstart=FindString(cmd$,"@#",cmdelimerstart+1)
cmdelimerend=FindString(cmd$,"#@",cmdelimerend+1)
cmdx$=Mid(cmd$,cmdelimerstart+2,cmdelimerend-cmdelimerstart-2)
; Here I need to get string value of purebasic operation stored in cmdx$
cmdx$=ParseString(cmdx$) ; ParseString() - Is that possible???
Debug cmdx$;+Str(i)+" oldstart:"+Str(oldcmdelimerstart)+" start:"+Str(cmdelimerstart)+" oldend:"+Str(oldcmdelimerend)+" end:"+Str(cmdelimerend)
Until cmdelimerstart<oldcmdelimerstart And cmdelimerend<oldcmdelimerend
Debug "Finita"
cmdx$=ParseString(cmdx$) ; ParseString() - Is that possible???