Sign in to follow this  
Followers 0
BugFix

complete your au3.keywords.abbreviations.properties

1 post in this topic

Hi,

if you install the latest SciTE-version (version 1.74), you'll see that the au3.keywords.abbreviations.properties includes only a little bit from the au3abbrev.properties-file.

With the following script you can rebuild your au3.keywords.abbreviations.properties with all available abbreviations.

The file-copy in user-folder will be used, so you get also all keywords from your own abbreviations.

#include <file.au3>

Dim $Scite = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir") & "\SciTe\"
Dim $path = @HomeDrive & @HomePath & "\au3abbrev.properties"
Dim $pathKeyAbb = $Scite & "au3.keywords.abbreviations.properties"
Dim $ar, $aAbbr[1]=[0], $var

_FileReadToArray($path, $ar)
For $i = 8 to $ar[0]
    If StringInStr($ar[$i], '=') Then
        $var = StringSplit($ar[$i], '=')
        ReDim $aAbbr[UBound($aAbbr)+1]
        $aAbbr[UBound($aAbbr)-1] = $var[1]
        $aAbbr[0] += 1
    EndIf
Next

FileMove($pathKeyAbb, $pathKeyAbb & '.BAK')
Dim $fh = FileOpen($pathKeyAbb, 1), $first = 0, $line = '', $count = 1
FileWriteLine($fh, @LF & @LF)
For $i = 1 To $aAbbr[0]
    If $first = 0 Then
        $line &= 'au3.keywords.abbrev='
        $first = 1
    EndIf
    If $count < 15 Then 
        $line &= $aAbbr[$i] & ' '
    Else
        $line &= $aAbbr[$i] & ' \'
        FileWriteLine($fh, $line)
        $line = @TAB & ''
        $count = 0
    EndIf
    $count += 1
Next
FileClose($fh)

NewAbbrevKey.au3


Best Regards BugFix  

Share this post


Link to post
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
Sign in to follow this  
Followers 0