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
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
' 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
or
SettingName, NewSettingValue
Views 112
Downloads 39
CodeID
DB ID