File_SettingRead + File_SettingSave

Reads and saves settings to Settings file, used asp here.
Similar to SettingRead+SettingSave DB_SettingRead+DB_SettingSave, except this reads from settings file saved in known location.
Equivalent to, but not like File_SettingRead for VB6
Note that File_SettingSave needs File_SettingRead

CodeFunctionName
What is this?

Public

Tested

Original Work
Function File_SettingRead(SettingName)
    ' Reads Setting from Setting file - Global appsettings
    ' Needs MultiTrim, CutString, ASCII2Read
    '    Uses root/Assets/Settings.ini
    '
    File1                        = SettingFile ' defined above = "/Assets/Settings.asp"
    If Not IsThere(File1) Then
        NewFile2                = ""
        NewFile2                = NewFile2 & Chr(39) & vbcrlf
        NewFile2                = NewFile2 & Chr(39) & " ANmaSettings File" & vbcrlf
        NewFile2                = NewFile2 & Chr(39) & " ========================================" & vbcrlf
        NewFile2                = NewFile2 & Chr(39) & " Pairs of SettingName = SettingValue" & vbcrlf
        NewFile2                = NewFile2 & Chr(39) & " ----------------------------------------" & vbcrlf
        NewFile2                = NewFile2 & Chr(39) & "Created: " & NOW() & vbcrlf
        NewFile2                = NewFile2 & Chr(39) & vbcrlf
        NewFile2                = NewFile2 & Chr(39) & vbcrlf
        NewFile2                = NewFile2 & Chr(39) & vbcrlf
        ASCII2Save File1, NewFile2, 1
        File2                    = NewFile2
        File_SettingSave "Tool", "7Bricks"
        File_SettingSave "SettingFileCreated", NOW()
    Else
        File2                    = ASCII2Read(File1, 1)
    End If
    Max1                        = Len(File2)
    Rett                        = "{{$N/A$}}"
    For Each SetLine in Split(File2, VBcrlf)
        SetLine                = Trim(SetLine)
        If Left(SetLine, 1) = "'" Or SetLine = "" Then
            ' Ignore lines starting those chars
        Else
            Var1                = MultiTrim(CutString(SetLine, "", "=", 1))
            Var2                = Trim(CutString(SetLine, "=", "", 1))
            If UCase(SettingName) = UCase(Var1) Then
                Rett            = Var2
                Exit For
            End if
        End If
    Next
    File_SettingRead        = Rett
End Function
Function File_SettingSave(SettingName, NewSettingValue)
    ' Saves setting to file, create if not found
    ' Needs MultiTrim, CutString, ASCII2Read, ASCII2Save, File_SettingRead
    '
    File1                        = SettingFile ' defined above = "/Assets/Settings.asp"
    File2                        = ASCII2Read(File1, 1)
    OldValue                    = File_SettingRead(SettingName)
    If OldValue = "{{$N/A$}}" Then ' Add at end
        NewFile2                = File2
        NewFile2                = NewFile2 & SettingName & vbtab & "= " & NewSettingValue & VBcrlf
    Else
        NewFile2                = ""
        File2                    = MultiTrim(File2)
        Max1                    = Len(File2)
        For Each SetLine in Split(File2, VBcrlf)
            NewLine            = SetLine
            SetLine            = MultiTrim(SetLine)
            If Left(SetLine, 1) = "'" Or SetLine = "" Then
                ' Ignore lines starting those chars
            Else
                Var1            = MultiTrim(CutString(SetLine, "", "=", 1))
                Var2            = Trim(CutString(SetLine, "=", "", 1))
                If UCase(SettingName) = UCase(Var1) Then
                    NewLine    = SettingName & vbtab & "= " & NewSettingValue
                End if
            End If
            NewFile2            = NewFile2 & NewLine & vbcrlf
        Next
    End If
    ASCII2Save File1, NewFile2, 1
End Function

SettingName
or
SettingName, NewSettingValue

Views 76

Downloads 17

CodeID
DB ID