Jump to content

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


guinness
 Share

Recommended Posts

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
Link to comment
Share on other sites

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 parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 22/04/2018

Link to comment
Share on other sites

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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...