花落谁家，你作主！	盛大widget设计大赛英雄榜

就这40分了，全拿出来了，大家帮忙解决一个读写文件的问题吧！！！

楼主zzywjing（雁南飞）2004-12-03 08:46:44 在 VB / 基础类提问

比如说：我的一个目录下有n 个文件都是.txt类型的，我现在想把他们从新生成一遍，也就是说生成.htm的文件。并且要加上前后页的链接，生成的文件为1.htm 2.htm 3.htm等。。。

要求1。htm文件上加上<a href=2.htm>下一页</a> ,

2.htm 加上 <a href=3.htm>下一页</a> <a href=1.htm>上一页</a>

文件名称随便写，只要上下页能链接对就可以！

帮忙！！问题点数：40、回复次数：9Top

1 楼VisionSpace（幻影时空）回复于 2004-12-03 09:03:50 得分 0

N个文件,是数字的名称吧?

还有.以前的内容是否读入..再写入呢?

用FSO吧!
Top

2 楼aboo（阿布）回复于 2004-12-03 09:06:29 得分 0

FileSystemObject.CreateTextFile()
FileSystemObject.OpenTextFile()
TextStream.WriteLine()Top

3 楼zycxs（丝鱼）回复于 2004-12-03 09:08:50 得分 0

我的一个目录下有n 个文件都是.txt类型的,不知是否这些文件名也是一样的呢? 如果是1.txt,2.txt ……可以用rich控件做一个文本读写器，定义一个变量记录文件名如1。2。……然后在每个文件名里加入HTM的定义而链接就用刚才的变量+1，保存文件也就那个变量做文件名就可以了我想此方法应可以
Top

4 楼zzywjing（雁南飞）回复于 2004-12-03 09:26:25 得分 0

楼上：文件名肯定是不一样的。但肯定是这样pai的 01.txt 02.txt 03.txt甚至他还有index.txt ，主目录是index.txt ，。Top

5 楼VisionSpace（幻影时空）回复于 2004-12-03 09:33:47 得分 0

未知的或没有规律的文件名.怎么做连接嘛?呵呵.Top

6 楼zzywjing（雁南飞）回复于 2004-12-03 09:35:55 得分 0

但肯定是排序的 001.txt 002.txt 003.txt 004.txt....另外还有一个index.txt 这个文件就是主目录文件

现在就定他是这样排序的，那怎么解决呀！Top

7 楼suolong123（JJ掉了不过碗大个疤）回复于 2004-12-03 10:22:22 得分 0

同样的问题我也在找，学习一下！Top

8 楼wwqna（york）回复于 2004-12-03 11:37:00 得分 40

Option Explicit
Const strspace = " "

Private Sub Command1_Click()
Dim CurfileName As String
Dim PrefileName As String
Dim NextFileName As String

NextFileName = Dir(Text1.Text & "*.txt", vbNormal)
If NextFileName = "" Then
MsgBox "没有找到相应的文件", vbInformation, "Error"
Exit Sub
End If
Do While NextFileName <> ""
List1.AddItem NextFileName
If CurfileName <> "" Then
ConvertTohtml CurfileName, PrefileName, NextFileName
End If
PrefileName = CurfileName
CurfileName = NextFileName
NextFileName = Dir
Loop
ConvertTohtml CurfileName, PrefileName, NextFileName
End Sub
Private Sub ConvertTohtml(ByVal CurfileName As String, ByVal PrefileName As String, _
ByVal NextFileName As String)
Dim content As String
Dim lincontent As String
If PrefileName <> "" Then
PrefileName = Left(PrefileName, InStr(PrefileName, ".") - 1) & ".htm"
End If
If NextFileName <> "" Then
NextFileName = Left(NextFileName, InStr(NextFileName, ".") - 1) & ".htm"
End If

Open Text1.Text & CurfileName For Input As #1
Do While EOF(1) = False
Line Input #1, lincontent
lincontent = Replace(lincontent, " ", strspace)
content = content & lincontent & "<br>" & vbCrLf
Loop
Close #1
content = content & "<Center>"
If PrefileName <> "" Then
content = content & "<a href='" & PrefileName & "'>前一页</a>"
End If
content = content & Replace(" ", " ", strspace)
If NextFileName <> "" Then
content = content & "<a href = '" & NextFileName & "'>后一页</a>"
End If
content = content & "</center>"
Open Text1.Text & Left(CurfileName, Len(CurfileName) - 3) & "htm" For Output As #1
Print #1, content
Close #1
End Sub

你可以自己再改一下，可以控制字体什么Top

9 楼ljyjjj（龙睛鱼）回复于 2004-12-03 13:11:50 得分 0

有序名称可以用& 连起来，组成文件名，再在相应文件的BOF 和EOF 写HTML代码，在把文件扩展名改了。不就可以了。Top