Domino 9 und frühere Versionen > ND6: Entwicklung

notes.ini mit LS | VBS | API ändern .....

<< < (2/4) > >>

eknori:
ahh, sag das doch gleich

Sub InsertIntoArray(InsertArray As Variant,ArrayLen As Long,PositionToInsert As Long,ValueToInsert As String)
' this function will insert a value into an array
' Call InsertIntoArray(IniFileLines,Counter-1,Counter,INI_Section)
   ArrayLen = ArrayLen + 1
   Redim TempArray(ArrayLen) As String
   Redim Preserve InsertArray(ArrayLen)
   Dim ArrayIndex As Long
   
   For ArrayIndex = 0 To PositionToInsert - 1 ' insert rows from InsertArray up to the PositionToInsert
      TempArray(ArrayIndex) = InsertArray(ArrayIndex)
   Next
' now put in ValueToInsert
   TempArray(PositionToInsert) = ValueToInsert
   For ArrayIndex = PositionToInsert + 1 To ArrayLen
      TempArray(ArrayIndex) = InsertArray(ArrayIndex - 1)
   Next
   
' now put values back into InsertArray
   For ArrayIndex = 0 To ArrayLen
      InsertArray(ArrayIndex) = TempArray(ArrayIndex)
   Next
   
End Sub

koehlerbv:
Warum machst Du das eigentlich, Ulrich:

ValueToInsert As String

Bei so einer allgemeinen Routine hättest Du doch gleich viel mehr Fälle "erschlagen", wenn Du da Variant erlaubst ...

Bernhard

eknori:
der code ist schon uralt; wahrscheinlich wusste ich es damals nicht besser

adminnaddel:
okay .. ich habe mal

   INI_PATH = "C:\Windows\"
   INI_FileName = "notes.ini"
   INI_Section = "[Notes]"
   INI_Variable = "Directory"
   INI_Value = "c:\notes\data"

aber wo ist denn der neue Value definiert? Finde ich einfach nicht!

lg Andy

eknori:
Aufruf mit

   Dim ReturnValue As String
   
   dummy = INI_write ("c:\programme\lotus\Notes\", "Notes.ini","[Notes]","$HDLANG", "GR", ReturnValue  )

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete