如何在lotus script里面读一个文本文件的第一行?
melia 2005-03-31 12:57:36 我放在domino的文件夹下的一个文本文件里第一行的数据我要在代理中取得,代码只写了一点,后面找不到lotus script里面能用的方法了,就没贴出来,谁用lotus读过文本文件数据的请帮个忙,看看怎么写。
Sub Initialize
Dim session As New notessession
Dim curdb As notesdatabase
Dim doc As notesdocument
Dim curdoc As notesdocument
'Set curdoc=s.documentcontext
'Set curdb=s.currentdatabase
Msgbox "-----------------------getprogrampath start ------------------------------"
On Error Goto esub
Dim pathName As String
Dim pathstr As pathclass
syspath=session.getenvironmentString("Directory",True)
Chdir(syspath)
fileName$="getpmpath.txt"
fileNum% = Freefile()
Open fileName$ For Random Access Read As fileNum%
Msgbox fileName$
'Seek fileNum%, 1
'Get #fileNum%,,pathstr
。。。。。。省略
Close fileNum%
Msgbox path.name
Exit Sub
esub:
Msgbox "-----------------------del error ------------------------------"
Exit Sub
End Sub