OpenOffice.info

Code: Alles auswählen

Sub Textfeldfuellung
 Dim varGewUser as String
 Dim varSign as String
 Dim varResponse as String
 Dim varFunction as String
 Dim varTelefon as String
 Dim varTelefax as String
 Dim varEMail as String
 Dim sFile3 as String
 sFile3 = "D:\inifile.ini"
 
 KontrolleLB = MyDlg.getControl("ListBox1") 'Ansprechen des Listenfeldes (ListBox1)
 varGewUser = KontrolleLB.SelectedItem 'varGewUser ist der markierte Eintrag, zB Toni Tester oder Frank Farber
 msgbox varGewUser, 0, "Ihre Auswahl:"
 
  'Das Zeichen der Person aus der ini lesen:
 'varSign = readini(sFile3,varGewUser,"Sign","")
  'Die Email der Person aus der ini lesen:
 varEMail = readini(sFile3,varGewUser,"EMail")
 
 MsgBox varGewUser, 0, "varGewUser:"
 
 'Schreiben des Zeichens in TextField4
 'MyDlg.getControl("TextField4").Model.Text = varSign
  'Schreiben der EMail in TextField3
 MyDlg.getControl("TextField3").Model.Text = varEMail

 MsgBox varGewUser, 0, "varGewUser:"

End Sub

Code: Alles auswählen

function readini(inifile as string, bereich as string, param as string) as string
   Dim inBereich as boolean
   Dim aFile as String
   Dim #inumber
   Dim szeile as String
   Dim para as String
   Dim Start as String
 
   inBereich=false
   readini=default
   Bereich="["+bereich+"]"
   #iNumber = Freefile
   aFile = inifile
   on error goto ende
   if FileExists(inifile) then
   Open aFile For Input As #iNumber
   While not eof(#iNumber)
 
   Line Input #iNumber, sZeile
   if szeile=Bereich then inBereich=true
   if inBereich then
     ipos=InStr(sZeile,"=")
      if ipos>0 then
        para=mid(szeile,1,ipos-1)
        if para = param then
          readini=mid(szeile,ipos+1)
          inBereich=false
        end if
      end if
    end if
    if inBereich then
     start=left(sZeile,1)
     if start="[" then inbereich=false
    end if
    if szeile=bereich then inBereich=true
    wend
    Close #iNumber
   end if
  exit function
  ende: 
end function

Code: Alles auswählen

efaultUser]
NewInfo=
DefUser=1

[StoUser]
User0=Nokia
User1=Sony
User2=Alcatel
User3=Motorola
User4=Aikon
User5=Sharp
User6=LG
User7=BenQ
User8=Samsung
 
[Nokia]
Sign=NK
Response=Finnland
Function=Finne
Telefon=07nokia
Telefax=08nokia
EMail=mailatnokia.fn
Company=
Language=
Alignment=
 
[Sony]
Sign=SY
Response=Japan
Function=Japaner
Telefon=01sony
Telefax=01sony
EMail=mailatsony.jp
Company=
Language=
Alignment=

Code: Alles auswählen

....... as String

Code: Alles auswählen

....... as Variant