请教，txt文本分割问题。

﹎ャ柔情ヽ

软件要实现的功能：

导出的文本格式：

我想问的是，如何分类文本。各位前辈，麻烦详细讲解一下，由于是菜鸟的缘故，深奥的理解不了。谢谢各位了！{:soso__3047998227694952382_3:}

q1051278389

如您所愿，已处理完毕，代码很简单，如果勉强满足您，请把最佳答案给我，谢谢





YP700.zip (0 Bytes, 下载次数: 51)

2011-8-30 20:15 上传

点击文件名下载附件

修改完毕，使用一个模块将数组重复项清除

小明无敌

不懂--！             不理解LZ的意思

q1051278389

请稍等..正在处理

大头佛

先分割再用正则匹配！你不把源码发出来也得提供一个数据的来源吧？

q1051278389

代码看了会头晕的

.版本 2

.程序集 窗口程序集1
.程序集变量 全局文本, 文本型
.程序集变量 全局文本_数组, 文本型, , "0"
.程序集变量 全局_文本, 文本型

.子程序 _按钮3_被单击
.局部变量 计次变量, 整数型
.局部变量 全局_结果文本, NewRent

全局文本 ＝ 子文本替换 (编辑框1.内容, #换行符, “ ”, , , 真)  ' 替换掉换行符
全局文本_数组 ＝ 分割文本 (全局文本, “ ”, )  ' 单独存放每个文本
全局文本_数组 ＝ 分割文本 (清除数组重复成员 (全局文本_数组, “|”), “|”, )

.计次循环首 (取数组成员数 (全局文本_数组), 计次变量)  ' 循环对比，笨方法，慢了点
    .如果真 (取文本左边 (编辑框2.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.a ＝ 全局_结果文本.a ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框3.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.b ＝ 全局_结果文本.b ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框4.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.c ＝ 全局_结果文本.c ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框5.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.d ＝ 全局_结果文本.d ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框6.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.e ＝ 全局_结果文本.e ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框7.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.f ＝ 全局_结果文本.f ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框8.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.g ＝ 全局_结果文本.g ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框9.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.h ＝ 全局_结果文本.h ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框10.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.i ＝ 全局_结果文本.i ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

    .如果真 (取文本左边 (编辑框11.内容, 2) ＝ 取文本左边 (全局文本_数组 [计次变量], 2))
        全局_结果文本.j ＝ 全局_结果文本.j ＋ “ ” ＋ 全局文本_数组 [计次变量]
    .如果真结束

.计次循环尾 ()

全局_文本 ＝ “”

.如果真 (删首尾空 (编辑框2.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框2.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.a ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框3.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框3.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.b ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框4.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框4.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.c ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框5.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框5.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.d ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框6.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框6.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.e ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框7.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框7.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.f ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框8.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框8.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.g ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框9.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框9.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.h ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框10.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框10.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.i ＋ #换行符
.如果真结束

.如果真 (删首尾空 (编辑框11.内容) ≠ “”)
    全局_文本 ＝ 全局_文本 ＋ “[” ＋ 编辑框11.内容 ＋ “]” ＋ #换行符 ＋ 全局_结果文本.j ＋ #换行符
.如果真结束

输出调试文本 (全局_文本)

.子程序 _按钮1_被单击

通用对话框1.类型 ＝ 0
.如果真 (通用对话框1.打开 ())
    编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
.如果真结束



.子程序 _按钮2_被单击


.如果真 (删首尾空 (全局_文本) ≠ “”)
    通用对话框1.类型 ＝ 1
    .如果真 (通用对话框1.打开 ())
        写到文件 (通用对话框1.文件名, 到字节集 (全局_文本))
    .如果真结束

.如果真结束

.数据类型 NewRent
    .成员 a, 文本型
    .成员 b, 文本型
    .成员 c, 文本型
    .成员 d, 文本型
    .成员 e, 文本型
    .成员 f, 文本型
    .成员 g, 文本型
    .成员 h, 文本型
    .成员 i, 文本型
    .成员 j, 文本型



使用到一个数据类型，也可以不用，那样步骤多了点

不要迷恋哥，哥只会装13

金哥专用

我还真没明白。。

笨潴

q1051278389 发表于 2011-8-30 20:19
代码看了会头晕的

.版本 2

{:3_244:}拜膜105大牛。。。。太长了

﹎ャ柔情ヽ

q1051278389 发表于 2011-8-30 19:12
如您所愿，已处理完毕，代码很简单，如果勉强满足您，请把最佳答案给我，谢谢

问题基本上解决了，但是遇到一个问题，相仿的文字会重复分类。类如：
啊啊┽哦暗暗  啊啊┽额谔谔  啊啊┽小哦哦

如上的分类[啊啊┽哦][啊啊┽额][啊啊┽小]会出现重复现象。

级别低手

厉害，真不错