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) ...
|
|