Jump to content

_StringCompact() - Compact a string to a certain number of characters left and right.


Recommended Posts

Posted (edited)

I found the code I used for this. There are magic numbers in there, but they are documented and the constants can be put back if you wish. Don't get mad at me - this is exactly the method I used.  :sweating:

Styles - $ES_AUTOHSCROLL, $ES_READONLY

Extended Style - $WS_EX_TRANSPARENT

Global $sFilePath = "C:\Documents and Settings\User\Desktop\one_two_three_four_five_six_seven_eight.txt"
Global $sNewPath = "C:\Documents and Settings\User\Desktop\New Folder\1345678.txt"

_ExampleGUI($sFilePath, $sNewPath)

Func _ExampleGUI($sFilePath, $sNewPath)
    Local $sText, $iGUIHeight, $iGUIWidth
    $sText = "Truncation Alternative"
    $iGUIWidth = 256
    $iGUIHeight = 148

    Local $hGUI = GUICreate($sText, $iGUIWidth, $iGUIHeight, Default, Default, Default, Default)
    GUISetBkColor(0xF0EEE0, $hGUI)

    GUICtrlCreateLabel("Source:", 10, 10, 50, 20) ; Source File
    GUICtrlSetFont(-1, 9, 600)

    ; The text may be too long to fit on a label, but an Input control can be made to look like a label.
    GUICtrlCreateInput(StringRegExpReplace($sFilePath, "(.*\\)+", ""), 63, 10, 183, 20, BitOR(0x80, 0x800), 0x20) ; BitOR($ES_AUTOHSCROLL, $ES_READONLY), $WS_EX_TRANSPARENT)
    GUICtrlSetFont(-1, 9)
    GUICtrlSetBkColor(-1, 0xF0EEE0)

    GUICtrlCreateLabel("Folder:", 10, 36, 50, 20) ; Output Folder
    GUICtrlSetFont(-1, 9, 600)

    Local $hNewFolder = GUICtrlCreateInput(StringRegExpReplace($sNewPath, "(.+\\)(.+)(\\)(.+\z)", "$2"), 63, 36, 151, 20, BitOR(0x80, 0x800), 0x20) ; BitOR($ES_AUTOHSCROLL, $ES_READONLY), $WS_EX_TRANSPARENT)
    GUICtrlSetFont(-1, 9)
    GUICtrlSetBkColor(-1, 0xF0EEE0)

    GUISetState()

    While 1
        $msg = GUIGetMsg()
        If $msg = -3 Then ExitLoop ; $GUI_EVENT_CLOSE
    WEnd
EndFunc
Edited by czardas
Posted

Don't get mad at me - this is exactly the method I used.  :sweating:

I don't care anymore. Thanks for posting.

UDF List:

 
_AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples...

Updated: 22/04/2018

Posted (edited)

Having the option to avoid truncation without making a mess of your design is nice. Both solutions have merit. :)

The code was written a while ago using an older version.

Edited by czardas

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...