- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何提取文本中小标题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188905)
-- 发布时间：2023/10/30 0:35:00
-- 如何提取文本中小标题
一个文本（已转为string）中有小标题,如何提取？
一、本次招标内容
1、工程概况：本工程位建设内容及规模：（1）水利部分：提标加固海塘5.7km，建
本次招标范围内的工程估算（或概算）造价工程估算总投资87590万元，采用投标资标。
二、投标人资格条件、要求
（一）投标人：
? 1、具有水利部颁发以下2项资质：①水利工程施工监理甲级、②水利工程建设环
2、本次招标接受联合体投标，联合体投标的，应满足下列要求：
三、招标文件的获取
1、本项目招标文件和补充（答疑、澄清）、修改文件以网上下载方式发放。
2、招标文件网上下载时间：2023年9月26日至2023年10月07日。
四、投标文件递交
1、投标文件递交截止时间2023年10月17日14:30；
2、投标文件递交方式：电子投标文件采用网上递交的方式，上传至浙江省公共资
-- 发布时间：2023/10/30 8:35:00
--
有什么规则或者标记说明某个文字属于标题？
-- 发布时间：2023/11/1 21:11:00
--
老师好，下面代码如何合并，需求是：
1、每一行就是一个招标公告，公告的小标题可能是“一，二...”，也有可能是“1，2，3，4，...”，如何合并？
2、Exit For 的代码没有起作用？
Dim r As Row = CurrentTable.Current
Dim nms() As String = r("招标公告").split(vbCrlf)
Dim sbs() As String = {"一","二","三","四","五","六","七"}
Dim sbs1() As String = {"1","2","3","4","5","6","7"}
For Each nm As String In nms
nm = nm.Trim()
For Each sb As String In sbs
If nm.StartsWith(sb)
Output.Show(nm)
\'End If
If nm.Contains("招标文件的获取")
Exit For
End If
End If
Next
Next
For Each nm As String In nms
nm = nm.Trim()
If Char.IsDigit(nm.Chars(0)) AndAlso Char.IsDigit(nm.Chars(2)) = False
Output.Show(nm)
If nm.Contains("招标文件的获取")
Exit For
End If
End If
Next
-- 发布时间：2023/11/2 8:59:00
--
Dim sbs() As String = {"一","二","三","四","五","六","七"}
Dim sbs1() As String = {"1","2","3","4","5","6","7"}
For Each nm As String In nms
nm = nm.Trim()
For i as integer = o to sbs.length - 1
dim sb as string = sbs(i)
dim sb1 as string = sbs1(i) If nm.StartsWith(sb) orelse nm.StartsWith(sb1)
Output.Show(nm)
\'End If
If nm.Contains("招标文件的获取")
Exit For
End If
End If
Next
Next
-- 发布时间：2023/11/2 10:08:00
--
老师可能我没有说清楚，下面是二个招标公告的小标题，我需的结果是：
2、Exit For 的代码没有起作用？
|
一、工程概况 二、本次招标内容： 三、投标资格条件 四、招标文件的获取 五、投标文件递交：
|
1 招标条件 2 项目概况与招标范围 3 投标人资格要求 4 招标文件的获取 5 投标文件的递交 6 发布公告的媒介 7 联系方式 |
而现在的结果下面这样，红色这部分不要：
一、工程概况
1、温州市域铁路..。
2、温州市域铁路S3线一期工程瑞安段..为17.5亿元。
二、本次招标内容：
三、投标资格条件
1、同时具有市政公用工程施工总承…
2、投标人（以联合体形式参与投标…书；
3、投标人及其法….外；
[此贴子已经被作者于2023/11/2 10:09:06编辑过]
-- 发布时间：2023/11/2 10:32:00
--
那直接判断中文的一二这些数字就行了，去掉阿拉伯数字的判断
-- 发布时间：2023/11/2 11:19:00
--
老师但有些招标公告不是用一、二...，而是用1，2，3...如何处理
-- 发布时间：2023/11/2 11:27:00
--
那怎么知道1，2，3这些是大标题还是小标题？
-- 发布时间：2023/11/2 11:59:00
--
我要的是不同文件的标题提取，而不是一个文件
此主题相关图片如下：1698897761407.jpg
-- 发布时间：2023/11/2 12:18:00
--
那怎么知道A文件使用中文做标题，B文件使用数字做标题？