002
12.02.2005, 13:59 Uhr
Diablo
|
anzahl von den "sections" in der ini, hier ein beispiel:
inhalt der text.ini :
[hallo]
du=da
[tschüss]
ade=au revoir
die test.ini enthält somit 2 sections [hallo] + [tschüss]
und ich will das mein programm die anzahl herrausfindet! was zwischen den []klammern steht ist egal..
kann ich das von diesem code ableiten?:
| Visual Basic: |
Public Function GetIniSections(FileName As String) As String()
Dim szBuf As String, lLen As Integer
Do While (lLen = Len(szBuf) - 2) Or (lLen = 0)
If szBuf = vbNullString Then
szBuf = String$(255, 0)
Else
szBuf = String$(Len(szBuf) * 2, 0)
End If
lLen = GetPrivateProfileSectionNames(szBuf, Len(szBuf), FileName)
Loop
szBuf = Left$(szBuf, lLen)
Text1.Text = Len(lLen)
GetIniSections = Split(szBuf, vbNullChar)
ReDim Preserve GetIniSections(UBound(GetIniSections) - 1) As String
End Function
Private Sub Form_Load()
...
m_strFileName = strAppPath & "Trainingsplan.txt"
Dim Sections() As String
Dim Section As Variant
Sections = GetIniSections(m_strFileName)
For Each Section In Sections
Next
Text1.Text =Sections(0)
...
|
|
