' Program Folder Manager 0.1
' Copyright (c) 2014 Nonki Takahashi.
'
' History:
' 0.1 2014-06-04 Created. ()
'
Settings_GetName()
Settings_GetFolder()
settings[1] = path
filename = path + "ProgramScanner.settings"
Settings_Write()
TextWindow.WriteLine(filename)
TextWindow.WriteLine(settings)
Sub Settings_GetFolder
' param filename
' return path
p = 1
bs = Text.GetIndexOf(Text.GetSubTextToEnd(filename, p), "\")
While 0 < bs
p = p + bs
bs = Text.GetIndexOf(Text.GetSubTextToEnd(filename, p), "\")
EndWhile
path = Text.GetSubText(filename, 1, p - 1)
EndSub
Sub Settings_GetName
' return filename
' The following line could be harmful and has been automatically commented.
' filename = File.GetSettingsFilePath()
EndSub
Sub Settings_Read
' param filename
' return settings
' The following line could be harmful and has been automatically commented.
' settings = File.ReadContents(filename)
EndSub
Sub Settings_Write
' param filename
' param settings
' return result
' The following line could be harmful and has been automatically commented.
' result = File.WriteContents(filename, settings)
EndSub
Program Listing: CRK000