Jump to content

jpm

Developers
  • Posts

    10,381
  • Joined

  • Last visited

  • Days Won

    11

jpm last won the day on July 22 2024

jpm had the most liked content!

2 Followers

About jpm

  • Birthday 04/04/1946

Profile Information

  • Member Title
    a Real GUI/debug lover
  • Location
    Hauts de Seine, France

Recent Profile Visitors

4,267 profile views

jpm's Achievements

  1. Under win11 running the beta version it is OK for me Just explain what you are doing post a repro script
  2. @pixelsearch I don't kown if the fact that the last part is not forcing filling to end of status bar will be a breaking script Do you think your solution is good for every body?
  3. @pixelsearch For me it is logical that the last part fill the end of the windows whatever the value is
  4. I agree you do not include it biy at the end it is included
  5. WIth your mod a /fs17 is included That was my concern
  6. I am wondering if this proposal is complete as I understand the wrong (/par) is replaced at the end by a /fs17 so why it is not coming first ? as I a don't know about .rtf content can you clarify Thanks
  7. I assume the building stay as under x86 by default : build a x86 .exe or .a3x
  8. Will autoitwrapper use by default X64 when launching a script?
  9. Install OK on a x86 version question to update to x64 do I need just to update running the installer ?
  10. Ok but still the @extended must be set to $aRet[3] - 1
  11. True I will fix it Thanks
  12. Hi, As the return can be several values separated by "|" it is normal for me that the return is a string even if only one is returned
  13. I agree except 0'Malley your proposal is far more better, even an excution time divide by 3 !!!
  14. @jchd #include <Array.au3> #include <String.au3> Local $a = [ _ "Greengrocers’ apostrophes", _ "St James’S Park", _ "ladies’ hats", _ "Le Cléac'H", _ "O'Malley", _ "80's music", _ "Ho, mia kor’! Post longa laborado", _ "John's shoes", _ "doesn'T mean anything ƨƳƭƫƼ'Ɖƃ sorry it's my fault", _ "Διεθνής εβδομάδα χειμερ’ινών αγώνων", _ "Тиждень зимо՚вих видів спорту (насправді 11 днів)", _ " ഇതിൽ അഞ്ചു വളയങ്ങൾ'ആലേഖനം ", _ "μζΣΨϑ'ʤʞʫʀ" _ ] Local $hTimer = TimerInit() For $i = 0 To UBound($a) - 1 $a[$i] = _StringProper_jpm($a[$i]) Next Local $iDiff = TimerDiff($hTimer) ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $iDiff = ' & $iDiff & @CRLF & '>Error code: ' & @error & ' Extended code: ' & @extended & ' (0x' & Hex(@extended) & ')' & @CRLF) ;### Debug Console _ArrayDisplay($a) Func _StringProper_jchd($s) Local Static $sPattern = "(*UCP)\b((?<!['՚‘’“”ʼʾ׳״])[[:lower:]])" Return Execute('"' & StringRegExpReplace(StringLower($s), $sPattern, '" & StringUpper("$1") & "') & '"') EndFunc ;==>_StringProper_jchd Func _StringProper_jpm($sString) Local $bCapNext = True, $sChr = "", $sReturn = "" Local Static $sPattern = '[a-zA-ZÀ-ÿšœžŸ]' Local $iStrLen = StringLen($sString) For $i = 1 To $iStrLen $sChr = StringMid($sString, $i, 1) Select Case $bCapNext = True If StringRegExp($sChr, $sPattern) Then If $i <> $iStrLen And StringMid($sString, $i + 1, 1) <> " " Then $sChr = StringUpper($sChr) Else $sChr = StringLower($sChr) EndIf $bCapNext = False EndIf Case Not StringRegExp($sChr, $sPattern) $bCapNext = True Case Else $sChr = StringLower($sChr) EndSelect $sReturn &= $sChr Next Return $sReturn EndFunc ;==>_StringProper_jpm Unless you have a regexp for O'Malley, What do you think about a slight mod of the current implementation of _StringProper()?
  15. Hi, already fix for next beta/release
×
×
  • Create New...