Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Get INI sections anzahl (vb6)

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
12.02.2005, 10:04 Uhr
Diablo



erst ma "GOD THX" das ihr wieder da seid
hab in der zeit ne menge dazu gelernt..
wie ich die sections aus einer ini ([ZUM beispieL]) herrausfinde weiß ich und wie ich switchen kann zwischen ihnen, aber ist es möglich auch die anzahl herrauszufinden?
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
12.02.2005, 13:07 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


Von was?

Ansonsten würde ich es versuchen mit


Visual Basic:
Len(VariableZurINI)



Somit ist VB gezwungen, eine Zahl auszudrücken. Und welche nimmt er wohl?
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
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)
...

 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
003
14.02.2005, 14:09 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


wie ist denn eine code zeile um eine section zu schreiben?
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
004
14.02.2005, 14:26 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


wenn schon müsste es statt

For Each Section In Sections
Next
Text1.Text =Sections(0)

For Each Section In Sections
Text1.Text =Sections(0)
Next

lauten und dann macht aus variant nen string oder nen integer...
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: