主题:  谁能帮我看看这个段落附加码的问题吗?

ziriyan

职务:普通成员
等级:2
金币:1.0
发贴:303
注册:2002/1/28 15:58:03
#12003/7/9 16:41:39
我有一个1.txt的文本文件,里面是一些随机产生的随机码,如下:

图片如下:


我想在输出一段文章的时候在文章的每一行后面自动插入1.txt里面的随机码,比如我想要下面的格式:
-----------------------------------
具有强大的编辑排版功能,支持多次撤消、重做和智能段落重排, ==dE\9Xy
可迅速删除文中所有空行、行首行尾空格、段内文字间空格和文 4mD0zBR7
中所有同类字符,迅速删除块内硬回车和替换空格为硬回车,以 cHubKk/Y
及文字上下标设置、英文字母大小写转换 q8aorI8-
..................
-----------------------------------

请问用什么办法可以办到????



4color

职务:普通成员
等级:1
金币:0.0
发贴:5
注册:2003/7/16 7:39:49
#22003/7/16 7:41:27

<%
'on error resume next
dim str
Const ForReading =1
Const Create =false
Dim Fso
Dim TS
Dim strLine
Dim strFileName
strFileName=server.Mappath("fso.txt")
Set fso=server.createObject("Scripting.FileSystemObject")
Set ts=Fso.OpenTextFIle(strFileName,ForReading,Create)
IF not Ts.AtEndOfStream then
Do while not ts.AtEndOfStream
strLine=Ts.Readline
     str=str&","&strLine
'response.write ","
loop
end if
str=mid(str,2)
'response.write str
Ts.close
set ts=nothing
set fs=nothing
'=========================
'str是从文本中读出的数组
'=========================
%>
<%

function dvHTMLEncode(fString,StrWord)
if not isnull(fString) then
' Dim Myvalue
' dim pos 'pos为字符串的位置
'     Randomize '初始化随机数生成器。
' Myvalue = Int((6 * Rnd) + 1)' 产生 1 到 6 之间的随机数。
'===================取出数组=============
dim i
if instr(str,",")>0 then
    str=split(str,",",-1,1)
Myvalue=Ubound(str)
'    for i=0 to Myvalue
'     response.write str(i)&"
"
'    next
i=0
'=====================End=================
    pos=instr(fString,strWord)
    if pos>0 then
        while Len(fString)>0 and Pos>0
        if i>Myvalue then
         i=0
        end if
            response.write left(fString,pos-1)&""&str(i)&"
"
            fString=mid(fString,pos+1)
            pos=inStr(fString,strWord)
        '    response.write fString
        i=i+1
        wend
        else
     response.write fString&""&str(0)&"
"
        end if
    end if
end if
end function

%>



零刻联盟--asp专区程序设计比赛



















附加码(把一个文本中的内容附加到每行的后面)
  • 说明:加密码文本为fso.txt,你可以变成你的文本。
  • 请输入你的字符串:
     






    <%
    dim strString
    strString=trim(request.Form("strString"))
    call dvHtmlEncode(strString,Chr(10))
    %>




    4color

    职务:普通成员
    等级:1
    金币:0.0
    发贴:5
    注册:2003/7/16 7:39:49
    #32003/7/16 7:42:46


    5646546
    sdf
    35sdf
    #%^#^
    sr#65
    #$^DF
    d4
    $^VET
    fg $^4



    ziriyan

    职务:普通成员
    等级:2
    金币:1.0
    发贴:303
    注册:2002/1/28 15:58:03
    #42003/7/16 22:07:14
    非常感谢,马上试试!



    ziriyan

    职务:普通成员
    等级:2
    金币:1.0
    发贴:303
    注册:2002/1/28 15:58:03
    #52003/7/16 22:54:47
    4color,非常感谢你,问题解决了!太强了



    4color

    职务:普通成员
    等级:1
    金币:0.0
    发贴:5
    注册:2003/7/16 7:39:49
    #62003/7/17 12:33:55
    呵呵!