Mulder

Lets say i have a text between " or ' test='test' test2="test2" test3='test3' test4="test4" and i want exactly this text only using regexp ("[^"]*")|('[^']*') msgbox(0,"","("&Chr(34)&"[^"&Chr(34)&"]*"&Chr(34)&")|('[^']*')") $tmp = StringRegExp( "test='test' " & 'test2="test2" ' & "test3='test3' " & 'test4="test4" ', "("&Chr(34)&"[^"&Chr(34)&"]*"&Chr(34)&")|('[^']*')", 3 ) for $loop=0 to UBound($tmp)-1 msgbox( 0,"", "index=" & $loop & " [" & $tmp[$loop] & "]") next Return is: index=0 [] index=1 ['test1'] index=2 ["test2"] index=3 [] index=4 ['test3'] index=5 ["test4"] if i use regexp ('[^']*')|("[^"]*") index=0 ['test1'] index=1 [] index=2 ["test2"] index=3 ['test3'] index=4 [] index=5 ["test4"] @ http://gskinner.com/RegExr/ and http://myregexp.com/ i've made a quick test Am i wrong? thx

this is you'r actual code Func _Zip_AddFile($hZipFile, $hFile2Add, $flag = 4) Local $DLLChk = _Zip_DllChk() Local $files = _Zip_Count($hZipFile) If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll If not _IsFullPath($hZipFile) then Return SetError(4,0);zip file isn't a full path If Not FileExists($hZipFile) Then Return SetError(1, 0, 0);no zip file $oApp = ObjCreate("Shell.Application") $copy = $oApp.NameSpace($hZipFile).CopyHere($hFile2Add) ;WinSetState"[CLASS:SysAnimate32; INSTANCE:1]" "#32770" While 1 If _Zip_Count($hZipFile) = ($files+1) Then ExitLoop WEnd Return SetError(0,0,1) EndFunc ;==>_Zip_AddFile This will end up in an endless loop if the file $hFile2Add dosn't exist OK i got it this here While 1 If _Zip_Count($hZipFile) = ($files+1) Then ExitLoop WEnd wait until the file is added into the zip file I would prefer a timer ... but checking ( If Not FileExists($hFile2Add) Then Return SetError(4, 0, 4);no file to add ) before calling Shell.Application would be good enough I've used your functions inside a script to compress a file but under some conditions the log file wasn't generated while i want to compreess it into a zip archive So i ended up in a loop!

There is a bug in func _Zip_AddFile() While 1 If _Zip_Count($hZipFile) = ($files+1) Then ExitLoop WEnd if there is no file to add ('couse the file dosn't exist) the script loops endless I also ask what is it good for? Func _Zip_AddFile($hZipFile, $hFile2Add, $flag = 4) Local $DLLChk = _Zip_DllChk() Local $files = _Zip_Count($hZipFile) If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll If Not FileExists($hZipFile) Then Return SetError(1, 0, 1);no zip file If Not FileExists($hFile2Add) Then Return SetError(4, 0, 4);no file to add $oApp = ObjCreate("Shell.Application") $copy = $oApp.NameSpace($hZipFile).CopyHere($hFile2Add) ;WinSetState"[CLASS:SysAnimate32; INSTANCE:1]" "#32770" ; While 1 ; If _Zip_Count($hZipFile) = ($files+1) Then ExitLoop ; WEnd Return SetError(0,0,1) EndFunc ;==>_Zip_AddFile