专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > Lotus

notes 怎么检索txt文件中的内容

发布时间:2010-06-13 13:53:57 文章来源:www.iduyao.cn 采编人员:星星草
求助:notes 如何检索txt文件中的内容?
需要做一个功能:先用txt格式打开一个htm文件,删除其中的URL地址,然后保存。

请问如何实现?

------解决方案--------------------
open这个方法可以实现,你可以看看帮助,就是
Open file for Read Write as ...
然后根据你的逻辑判断URL地址,并作相应的操作。
Open方法的格式:(具体可以看帮助里面的实例)
Open fileName
[ For { Random | Input | Output | Append | Binary } ]
[ Access { Read | Read Write | Write } ] 
[ { Shared | Lock Read | Lock Read Write | Lock Write } ]
As [#]fileNumber
[ Len = recLen ]
[Charset = MIMECharsetName]
------解决方案--------------------
仅供参考
VBScript code

    Dim Session As New notessession
        Dim FilePath As String '用来确定文件的位置
        Dim n As Integer 
        Dim Remain As Integer  
        Dim FileNum As Integer
        Dim SecLen As Integer
        SecLen=20000
        FilePath=Session.GetEnvironmentString("Directory", True) &"/domino/html/uploadfile/"+doc.wordunid(0)+".htm"
        fileName$ = Dir$(FilePath, 0)
        If fileName$<>"" Then
            FileNum=Freefile()
            '打开一个二进制文件
            Open FilePath For Input As FileNum
            Dim text As String
            Dim FistStrFile() As String
            Dim i As Integer
            
            i=1
            Redim Preserve FistStrFile(i)
            Do Until Eof(FileNum)
                Line Input #FileNum, text
                If Len(FistStrFile(i))>20000 Then
                    i=i+1
                    Redim Preserve FistStrFile(i)
                    FistStrFile(i)=FistStrFile(i)+text+Chr(13)+Chr(10)    
                    'FistStrFile(i)=FistStrFile(i)+text+" "
                Else
                    FistStrFile(i)=FistStrFile(i)+text+Chr(13)+Chr(10)
                    'FistStrFile(i)=FistStrFile(i)+text+" "
                End If
                
            Loop
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: