Jump to content

complete your au3.keywords.abbreviations.properties


BugFix
 Share

Recommended Posts

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  

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...