【已解决】VBS：若读入数据产生首尾颠倒的改变，VBS代码如何进行相应修改

思想之翼

原题：http://www.bathome.net/viewthread.php?tid=23404&highlight=
问题：
下列VBS代码读入a.txt的数据，由于记录方式变更，产生首尾颠倒的变化，欲得到相同的运算结果，VBS代码该如何相应修改？恳望得到指点。
示例：
【a.txt 原始记录的数据】
9
0
X
Y
Z
9
0
【a.txt 首尾颠倒后的数据】
0
9
Z
Y
X
0
9

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. set file = fso.OpenTextFile("a.txt")
   
3. 
   
4. Do Until file.AtEndOfStream
   
5.    strLine = file.ReadLine
   
6.    If strLine <> "" Then
   
7.       ReDim PreServe ar(n)
   
8.       strIn = strIn & "$" & strLine & " "
   
9.       ar(n) = strIn : n = n + 1
   
10.    End If
    
11. Loop
    
12. 
    
13. For i = CLng(UBound(ar)/2) to 0 step -1
    
14.    ar1 = Split(strIn,ar(i))
    
15.    If UBound(ar1) > 1 Then
    
16.       For j = 1 to UBound(ar1) - 1
    
17.          WriteToFile Split(ar1(j)),Split(ar(i))
    
18.       Next
    
19.       Exit For
    
20.    End If
    
21. Next
    
22. 
    
23. MsgBox "OK"
    
24. 
    
25. Sub WriteToFile(ar2,ar3)
    
26.    If UBound(ar2) >= 1 Then
    
27.       strOut = Mid(ar2(UBound(ar2)-1),2)
    
28.    Else
    
29.       strOut = Mid(ar3(UBound(ar3)-1),2)
    
30.    End If
    
31.    fso.OpenTextFile("b.txt",8,True).WriteLine strOut
    
32. End Sub

复制代码

jyswjjgdwtdtj

哦 所以你的意思就是把行给颠倒了，而不是把每个字符颠倒啊

思想之翼

回复 2# jyswjjgdwtdtj
感谢！没能解决问题

jyswjjgdwtdtj

回复 3# 思想之翼


    那你想要啥呢？
那你读出来，颠倒，再放到其他的一个txt里
在读取行不？

思想之翼

回复 4# jyswjjgdwtdtj
理解您的想法。文本个数多，折腾数据费时。

523066680

这语言描述，ChapGPT也未必能解读

jyswjjgdwtdtj

回复 5# 思想之翼


    不是，那你用xml格式啊？
就算是xml也是吧文档放在内存里解析的
你用文本文档，怎么可能有在磁盘里就能从后往前读的？

523066680

回复 7# jyswjjgdwtdtj


    获取文件大小，类似 seek 操作直接定位到末尾，offset递减 倒着读咯。如果只是 ASCII 范围内的字符，就不用考虑编码问题。

jyswjjgdwtdtj

回复 8# 523066680


    啊 那就

1. 'f是打开的文本
   
2. a=len(f.readall)
   
3. f.skip(a-1)
   
4. msgbox f.read(1)

复制代码

你是不是这个意思？有些好奇为啥要从后往前读

523066680

回复  523066680


    啊 那就你是不是这个意思？有意思吗
jyswjjgdwtdtj 发表于 2023-3-1 21:44

    咋滴，这口气，要战吗？

523066680

回复 9# jyswjjgdwtdtj
    年轻人C语言没接触过吗
本以为吕布已经天下无敌了，没想到有人比他还要勇猛，这是谁的部将？

include <stdio.h> include <stdlib.h> int main(int argc, char *argv[] ) {     FILE *fp = fopen("tmp.txt", "rb");     char c;     int size;     int offset = -1;     //定位到文件末尾     fseek( fp, 0, SEEK_END );         //末尾的offset     size = ftell(fp);     int count = 0;     //只捕获除换行符以外的倒数3个字符     while ( count < 3 && abs(offset) <= size )     {         fseek( fp, offset--, SEEK_END );         c = getc( fp );           if ( c != 13 && c != 10 )         {             count++;             printf("%c\n", c);         }     }     return 0; }

523066680

@老刘1号    1号你好，我是洞洞拐

Batcher

回复 2# jyswjjgdwtdtj


仔细阅读才能理解楼主的需求：
http://bbs.bathome.net/thread-23404-1-1.html
哪怕错误一个字都可能无法解决真实的问题。

czjt1234

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. set file = fso.OpenTextFile("a.txt")
   
3. 
   
4. Do Until file.AtEndOfStream
   
5.    strLine = file.ReadLine
   
6.    If strLine <> "" Then
   
7.       ReDim PreServe br(n)
   
8.       strIn = strIn & "$" & strLine & " "
   
9.       br(n) = strIn
   
10.       n = n + 1
    
11.    End If
    
12. Loop
    
13. 
    
14. n = n - 1
    
15. cr = Split(strIn)
    
16. strIn = ""
    
17. ReDim ar(n)
    
18. For i = 0 To n
    
19.     j = cr(n - i)
    
20.     strIn = strIn & j & " "
    
21.     ar(i) = strIn
    
22. Next
    
23. 
    
24. For i = CLng(UBound(ar) / 2) to 0 step -1
    
25.    ar1 = Split(strIn, ar(i))
    
26.    If UBound(ar1) > 1 Then
    
27.       For j = 1 to UBound(ar1) - 1
    
28.          WriteToFile Split(ar1(j)), Split(ar(i))
    
29.       Next
    
30.       Exit For
    
31.    End If
    
32. Next
    
33. 
    
34. MsgBox "OK"
    
35. 
    
36. Sub WriteToFile(ar2, ar3)
    
37.    If UBound(ar2) >= 1 Then
    
38.       strOut = Mid(ar2(UBound(ar2) - 1), 2)
    
39.    Else
    
40.       strOut = Mid(ar3(UBound(ar3) - 1), 2)
    
41.    End If
    
42.    fso.OpenTextFile("b.txt",8,True).WriteLine strOut
    
43. End Sub

复制代码

思想之翼

回复 14# czjt1234
非常感谢！代码运行结果正确。
VBScript 代码运行速度上不去，转换为 Javascript 或其他脚本语言，是否明显加速？恳望指点！