Ebasso at 17:57, 27 February 2014

2014-02-27T17:57:07Z

← Older revision		Revision as of 17:57, 27 February 2014
Line 42:		Line 42:

	End Function		End Function

			= Ver também =

			* [[Lotus Domino e Notes\| Mais artigos sobre IBM Domino e Notes]]
			* [[Variaveis do Notes.ini]]

			[[Category: IBM Domino]]
			[[Category: Lotus Domino]]
			[[Category: notes.ini]]

Ebasso: New page: Função que remove linhas do Notes.ini Call RemoveLine("DELEGATED_MAIL_FILE*") Function RemoveLine(pattern As String) As Integer Dim oneLine As Variant Dim fileIn As ...

2011-03-02T02:37:27Z

New page: Função que remove linhas do Notes.ini Call RemoveLine("DELEGATED_MAIL_FILE*") Function RemoveLine(pattern As String) As Integer Dim oneLine As Variant Dim fileIn As ...

New page

Função que remove linhas do Notes.ini

Call RemoveLine("DELEGATED_MAIL_FILE*")

Function RemoveLine(pattern As String) As Integer

Dim oneLine As Variant
Dim fileIn As Integer
Dim fileOut As Integer
Dim backupName As String
Dim iniLocation As String

backupName = "notes.dyn"
iniLocation = "C:\notes\notes.ini"

Filecopy iniLocation, backupName

fileIn = Freefile()
Open backupName For Input As fileIn

' Update the notes.ini
fileOut = Freefile()
Open iniLocation For Output As fileOut

Do While Not Eof(fileIn)
Line Input #fileIn, oneLine

If (oneLine Like pattern) Then
Msgbox( "Deleted line = " & oneLine)
Else
Print #fileOut, oneLine
End If

oneLine = ""
Loop

Msgbox "Notes.ini updated"

Close fileIn
Close fileOut

End Function

Lotus Script: Removendo linhas do Notes.ini - Revision history

Ebasso at 17:57, 27 February 2014

Ebasso: New page: Função que remove linhas do Notes.ini Call RemoveLine("DELEGATED_MAIL_FILE*") Function RemoveLine(pattern As String) As Integer Dim oneLine As Variant Dim fileIn As ...