OpenOffice.info

Code: Alles auswählen

Sub inilesen

Dim sFile As String
Dim iNumber As Integer
Dim sZeile As String
Dim iZeile as integer
Dim sSpalte as string

Dim iSpalte as Integer
Dim aStrings()

sFile = "c:\Dateiname.ini"
iNumber = Freefile

Open sFile For Input As iNumber

While NOT  eof(iNumber)
Line Input #iNumber, sZeile
iZeile = iZeile + 1

If Instr( sZeile, " " ) Then
   aStrings = SPLIT( sZeile, " ")
   For i=LBound ( aStrings ) to UBound ( aStrings )
      Dia.getCellbyPosition( i , iZeile ).String =  aStrings( i )
   Next i
Else
   Dia.getcellbyposition( 0 , iZeile ).string = sZeile
End If

Wend
close #iNumber
End Sub

Code: Alles auswählen

Sub de26284

DIM aStrings()

sString = "Anton Berta Cäsar"

If Instr(1, sString, " " ) Then
	aStrings =  SPLIT( sString, " " ) 
	For i = LBound( aStrings ) To UBound( aStrings ) 
		ergebnis = aStrings( i )
		iSpalte = i
		' fuellen in Spalte je nach Zaehler
	Next i 
Else
	' nur ein Wort
	ergebnis = sString
	iSpalte = 0 
	' fuellen in Spalte 0
End If
End Sub