Jump to content

jpm

Developers
  • Posts

    10,357
  • Joined

  • Last visited

  • Days Won

    11

jpm last won the day on July 22

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

3,935 profile views

jpm's Achievements

  1. 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
  2. I agree except 0'Malley your proposal is far more better, even an excution time divide by 3 !!!
  3. @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()?
  4. Hi, already fix for next beta/release
  5. The GuiCtrlSetFont is using the MSDN CreateFont so defining $GUI_FONTBOLD = 1 will just be ignored the weigth must be selected to have a bold font as AutoIt is a direct wrapper to MSDN api I will not change this behavior Sorry
  6. Ok may be @NoNameCode have more ...
  7. @argumentumI don't know how you can color the updown in black and also the left part of the Tab control a coloring of the date control can be a good improvement too. I implement a GUISetDarkTheme($hGui) which working the same , no need to use a callback I hope somebody can help.
  8. I fix the pb and commit the build change. it will be OK for the next beta/Release Thanks for your help
  9. I don't understand why we need to change something working both .chm and Web
  10. The handling of ../../functions/Run.htm is OK for the .chm and are modified for the Help's on the WEB
  11. I try to avoid such warning, but I fail how to implement it in chm snif!!!
  12. Thanks @Andreik I will add that to the SQLite.au3 I Will not check for library version as the Version 3.6.19 was introduced before the first SQLite.au3
  13. So the conclusion Ineed tointegrate the Nine version which support the $bArray parameter Thanks to all of you
×
×
  • Create New...