thinBasic_iniFile/IniFile_Implementation.inc at master · ErosOlmi/thinBasic_iniFile · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
'
' IniFile internal implementation
'

#INCLUDE "Win32Api.inc"

CLASS IniFile

  INSTANCE fileName AS STRING

  CLASS METHOD CREATE()
    fileName = ""
  END METHOD

  INTERFACE iIniFile
    INHERIT IUNKNOWN

    ' --

    METHOD SetFile( aFileName AS STRING )

      fileName = aFileName

    END METHOD

    METHOD GetFile() AS STRING

      METHOD = fileName

    END METHOD

    METHOD SetValue( section AS STRING, key AS STRING, value AS STRING )
      WritePrivateProfileString(section+"", key+"", value+"", fileName+"")
    END METHOD

    METHOD GetValue( section AS STRING, key AS STRING, defaultValue AS STRING ) AS STRING
      LOCAL value AS ASCIIZ * 8192

      GetPrivateProfileString(section+"", key+"", defaultValue+"", value, 8192, fileName+"")

      METHOD = value
    END METHOD

    METHOD GetSections(OPTIONAL sectionSeparator AS STRING) AS STRING

      LOCAL value AS STRING
      value = NUL$(32768)

      GetPrivateProfileString(BYVAL 0, BYVAL 0, BYVAL 0, BYVAL STRPTR(value), 32767, fileName+"")

      IF STRPTR(sectionSeparator) = 0 THEN
        sectionSeparator = ","
      END IF
      value = RTRIM$(value, $NUL)

      REPLACE $NUL WITH sectionSeparator IN value
      METHOD = value

    END METHOD

    METHOD GetSectionKeys(section AS STRING, OPTIONAL keySeparator AS STRING) AS STRING

      LOCAL value AS STRING
      value = NUL$(32768)
      GetPrivateProfileString(section+"", BYVAL 0, BYVAL 0, BYVAL STRPTR(value), 32767, fileName+"")

      IF STRPTR(keySeparator) = 0 THEN
        keySeparator = ","
      END IF
      value = RTRIM$(value, $NUL)
      REPLACE $NUL WITH keySeparator IN value

      METHOD = value

    END METHOD


  END INTERFACE

END CLASS