求助！获取网页内容排列错误

叫惦记博客吧

新人求助！各位大佬帮我看看是什么问题 。非常感谢

上传不了图片  大神可以下载源码看看

下载地址：https://dianjiwang.lanzoul.com/iHZ6d13bwoqd

qq261583065

之前没遇到过,也就琢磨了一下
当然是代码越简洁明了越好,但我只会这么写,能达到你要的效果

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
网址	文本型
a	文本型
b	文本型		0
i	整数型
c	文本型
标_左长	整数型
行_左长	整数型
k	整数型
间距	文本型

网址 ＝ 网页_访问S (编辑框2.内容)
a ＝ 编码_URL编码 (文本_取出中间文本 (网址, #VIP开始, #VIP结束, , ), 假, 真)
b ＝ 分割文本 (a, “%0A”, )
编辑框3.内容 ＝ “”
标_左长 ＝ 取文本长度 (编码_URL解码 (文本_取左边 (b [1], “%09”, , ), 真))
计次循环首 (取数组成员数 (b), i)
间距 ＝ “     ”
如果 (i ＝ 1)
c ＝ 子文本替换 (b [i], “%09”, 间距, , , 真)
编辑框3.加入文本 (“” ＋ 编码_URL解码 (c, 真) ＋ “
” ＋ #换行符)
行_左长 ＝ 取文本长度 (编码_URL解码 (文本_取左边 (b [i], “%09”, , ), 真))
如果 (标_左长 ＞ 行_左长)
计次循环首 (标_左长 － 行_左长, k)
间距 ＝ 间距 ＋ “ ”
计次循环尾 ()
计次循环首 (行_左长 － 标_左长, k)
间距 ＝ 取文本左边 (间距, 取文本长度 (间距) － 1)
计次循环尾 ()
c ＝ 子文本替换 (b [i], “%09”, 间距, , , 真)
编辑框3.加入文本 (“” ＋ 编码_URL解码 (c, 真) ＋ “
” ＋ #换行符)

计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 网址, 文本型<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 c, 文本型<br /> .局部变量 标_左长, 整数型<br /> .局部变量 行_左长, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 间距, 文本型<br /> <br /> 网址 ＝ 网页_访问S (编辑框2.内容)<br /> a ＝ 编码_URL编码 (文本_取出中间文本 (网址, #VIP开始, #VIP结束, , ), 假, 真)<br /> b ＝ 分割文本 (a, “%0A”, )<br /> 编辑框3.内容 ＝ “”<br /> 标_左长 ＝ 取文本长度 (编码_URL解码 (文本_取左边 (b [1], “%09”, , ), 真))<br /> .计次循环首 (取数组成员数 (b), i)<br />     间距 ＝ “     ”<br />     .如果 (i ＝ 1)<br />         c ＝ 子文本替换 (b <i>, “%09”, 间距, , , 真)<br />         编辑框3.加入文本 (“” ＋ 编码_URL解码 (c, 真) ＋ “<br /> ” ＋ #换行符)<br />     .否则<br />         行_左长 ＝ 取文本长度 (编码_URL解码 (文本_取左边 (b <i>, “%09”, , ), 真))<br />         .如果 (标_左长 ＞ 行_左长)<br />             .计次循环首 (标_左长 － 行_左长, k)<br />                 间距 ＝ 间距 ＋ “ ”<br />             .计次循环尾 ()<br />         .否则<br />             .计次循环首 (行_左长 － 标_左长, k)<br />                 间距 ＝ 取文本左边 (间距, 取文本长度 (间距) － 1)<br />             .计次循环尾 ()<br />         .如果结束<br />         c ＝ 子文本替换 (b <i>, “%09”, 间距, , , 真)<br />         编辑框3.加入文本 (“” ＋ 编码_URL解码 (c, 真) ＋ “<br /> ” ＋ #换行符)<br />     .如果结束<br /> <br /> .计次循环尾 ()

叫惦记博客吧

可以上传图片了，源码我在上传一份
读取信息.e (523.13 KB, 下载次数: 4)

2023-7-24 02:56 上传

点击文件名下载附件

冬夏

读取信息.e (992.68 KB, 下载次数: 3)

2023-7-24 06:21 上传

点击文件名下载附件

qq261583065

刚发现代码还能再精简一点  如下:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
网址	文本型
a	文本型
b	文本型		0
i	整数型
c	文本型
标_左长	整数型
行_左长	整数型
k	整数型
间距	文本型

网址 ＝ 网页_访问S (编辑框2.内容)
a ＝ 编码_URL编码 (文本_取出中间文本 (网址, #VIP开始, #VIP结束, , ), 假, 真)
b ＝ 分割文本 (a, “%0A”, )
如果真 (取数组成员数 (b) ≤ 1)
编辑框3.内容 ＝ “失败”
返回 ()
编辑框3.内容 ＝ “”
标_左长 ＝ 取文本长度 (编码_URL解码 (文本_取左边 (b [1], “%09”, , ), 真))
计次循环首 (取数组成员数 (b), i)
间距 ＝ “     ”
行_左长 ＝ 取文本长度 (编码_URL解码 (文本_取左边 (b [i], “%09”, , ), 真))
如果 (标_左长 ＞ 行_左长)
计次循环首 (标_左长 － 行_左长, k)
间距 ＝ 间距 ＋ “ ”
计次循环尾 ()
计次循环首 (行_左长 － 标_左长, k)
间距 ＝ 取文本左边 (间距, 取文本长度 (间距) － 1)
计次循环尾 ()
c ＝ 子文本替换 (b [i], “%09”, 间距, , , 真)
编辑框3.加入文本 (“” ＋ 编码_URL解码 (c, 真) ＋ “
” ＋ #换行符)
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 网址, 文本型<br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 c, 文本型<br /> .局部变量 标_左长, 整数型<br /> .局部变量 行_左长, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 间距, 文本型<br /> <br /> 网址 ＝ 网页_访问S (编辑框2.内容)<br /> a ＝ 编码_URL编码 (文本_取出中间文本 (网址, #VIP开始, #VIP结束, , ), 假, 真)<br /> b ＝ 分割文本 (a, “%0A”, )<br /> .如果真 (取数组成员数 (b) ≤ 1)<br />     编辑框3.内容 ＝ “失败”<br />     返回 ()<br /> .如果真结束<br /> 编辑框3.内容 ＝ “”<br /> 标_左长 ＝ 取文本长度 (编码_URL解码 (文本_取左边 (b [1], “%09”, , ), 真))<br /> .计次循环首 (取数组成员数 (b), i)<br />     间距 ＝ “     ”<br />     行_左长 ＝ 取文本长度 (编码_URL解码 (文本_取左边 (b <i>, “%09”, , ), 真))<br />     .如果 (标_左长 ＞ 行_左长)<br />         .计次循环首 (标_左长 － 行_左长, k)<br />             间距 ＝ 间距 ＋ “ ”<br />         .计次循环尾 ()<br />     .否则<br />         .计次循环首 (行_左长 － 标_左长, k)<br />             间距 ＝ 取文本左边 (间距, 取文本长度 (间距) － 1)<br />         .计次循环尾 ()<br />     .如果结束<br />     c ＝ 子文本替换 (b <i>, “%09”, 间距, , , 真)<br />     编辑框3.加入文本 (“” ＋ 编码_URL解码 (c, 真) ＋ “<br /> ” ＋ #换行符)<br /> .计次循环尾 ()