提取分割textbox中指定内容

qqasp112 2010-04-23 01:38:41
窗体中有text1,text2,text3,text4,text5,text6,Command1 五个控件

text4中有内容如下:
姓名 王小虎
语文 80
数学 80
英语 80
总分 240分
平均分 80分

姓名 林小冰
语文 80
数学 80
英语 80
总分 240分
平均分 80分

姓名 陈小明
语文 90
数学 90
英语 90
总分 270分
平均分 90分

姓名 杨小东
语文 70
数学 70
英语 70
总分 210分
平均分 70分

姓名 方小琪
语文 80
数学 80
英语 80
总分 240分
平均分 80分



在text1,text2,text3输入以下内容时

text1中输入:总分 240分 (当按下铵钮时提取text4中所有 "总分 240分"这一行)
text2中输入:4 (提取text4中所有 "总分 240分" 向上四行)
text3中输入:2 (提取text4中所有 "总分 240分" 向下二行)

点击Command1时把text4的内容按text1,text2,text3的条件分割到text5,text6中

即 text5 应显示如下内容:
姓名 王小虎
语文 80
数学 80
英语 80
总分 240分
平均分 80分

姓名 林小冰
语文 80
数学 80
英语 80
总分 240分
平均分 80分

姓名 方小琪
语文 80
数学 80
英语 80
总分 240分
平均分 80分

text6 应显示如下内容:

姓名 陈小明
语文 90
数学 90
英语 90
总分 270分
平均分 90分

姓名 杨小东
语文 70
数学 70
英语 70
总分 210分
平均分 70分
...全文
250 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
ning1958 2010-05-11
  • 打赏
  • 举报
 回复
VB常用值描述。
VB CONSTANT VALUE DESCRIPTION
VBCR Chr(13) Carriage return
VBCrLf Chr(13) & Chr(10) Combined carriage return and line feed
VBFormFeed Chr(12) Form feed

CSDN表格表示太差。链接到原帖。
http://www.devguru.com/technologies/vbscript/quickref/stringcon.html
guojl 2010-05-11
  • 打赏
  • 举报
 回复
upupup
jhone99 2010-05-11
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 ning1958 的回复:]
Private Sub Form_Load()
Me.Text1 = "姓名 王小虎" & vbNewLine & "语文 80" & vbNewLine & _
"数学 80" & vbNewLine & "英语 80" & vbNewLine & _
"总分 240分" & vbNewLine & ……
[/Quote]

设Textbox的 multiline属性为true就可以了
nono1122 2010-05-11
  • 打赏
  • 举报
 回复
看看哈
ning1958 2010-05-10
  • 打赏
  • 举报
 回复
Private Sub Form_Load()
Me.Text1 = "姓名 王小虎" & vbNewLine & "语文 80" & vbNewLine & _
"数学 80" & vbNewLine & "英语 80" & vbNewLine & _
"总分 240分" & vbNewLine & "平均分 80分" & vbNewLine & _
"" & vbCr & vbCr & "姓名 林小冰" & vbNewLine & _
"语文 80" & vbNewLine & "数学 80" & vbNewLine & _
"英语 80" & vbNewLine & "总分 240分" & vbNewLine & _
"平均分 80分" & vbNewLine & vbNewLine & _
"姓名 陈小明" & vbNewLine & "语文 90" & vbNewLine & _
"数学 90" & vbNewLine & "英语 90" & vbNewLine & _
"总分 270分" & vbNewLine & "平均分 90分" & vbNewLine & _
vbNewLine & "姓名 杨小东" & vbNewLine & _
"语文 70" & vbNewLine & "数学 70" & vbNewLine & _
"英语 70" & vbNewLine & "总分 210分" & vbNewLine & _
"平均分 70分" & vbNewLine & vbNewLine & _
"姓名 方小琪" & vbNewLine & "语文 80" & vbNewLine & _
"数学 80" & vbNewLine & "英语 80" & vbNewLine & _
"总分 240分" & vbNewLine & "平均分 80分" & vbNewLine
End Sub

请各位大侠试一下。
是不是在一行？？？
chinaboyzyq 2010-04-23
  • 打赏
  • 举报
 回复 


Private Sub Command1_Click()

  If Text1 = "总分 240分" Then

     Dim tmp As String

     tmp = Text1: Text1 = ""

     Dim i As Integer

     For i = 0 To UBound(Split(Text4, vbNewLine))

         If Split(Text4, vbNewLine)(i) = tmp Then

            Text1 = Text1 & tmp & vbNewLine

         End If

     Next

  End If

  

  Dim j As Integer

  If Val(Text2) = 4 Then

     Text2 = ""

     For i = 0 To UBound(Split(Text4, vbNewLine))

         If Split(Text4, vbNewLine)(i) = tmp Then

             For j = i - 4 To i - 1

                 Text2 = Text2 & Split(Text4, vbNewLine)(j) & vbNewLine

             Next

         End If

     Next

  End If

  If Val(Text3) = 2 Then

     Text3 = ""

     For i = 0 To UBound(Split(Text4, vbNewLine))

         If Split(Text4, vbNewLine)(i) = tmp Then

             For j = i + 1 To i + 2

                 Text3 = Text3 & Split(Text4, vbNewLine)(j) & vbNewLine

             Next

         End If

     Next

  End If

  Text5 = "": Text6 = ""

  For i = 0 To UBound(Split(Text4, vbNewLine))

      If Split(Text4, vbNewLine)(i) = tmp Then

          For j = i - 4 To i + 2

              Text5 = Text5 & Split(Text4, vbNewLine)(j) & vbNewLine

          Next

      ElseIf InStr(Split(Text4, vbNewLine)(i), "总分") Then

          For j = i - 4 To i + 2

              Text6 = Text6 & Split(Text4, vbNewLine)(j) & vbNewLine

          Next

      End If

  Next



  

End Sub



Private Sub Form_Load()

Text4 = "姓名 王小虎" & vbNewLine & "语文 80" & vbNewLine & _

        "数学 80" & vbNewLine & "英语 80" & vbNewLine & _

        "总分 240分" & vbNewLine & "平均分 80分" & vbNewLine & _

        "" & vbNewLine & "姓名 林小冰" & vbNewLine & _

        "语文 80" & vbNewLine & "数学 80" & vbNewLine & _

        "英语 80" & vbNewLine & "总分 240分" & vbNewLine & _

        "平均分 80分" & vbNewLine & vbNewLine & _

        "姓名 陈小明" & vbNewLine & "语文 90" & vbNewLine & _

        "数学 90" & vbNewLine & "英语 90" & vbNewLine & _

        "总分 270分" & vbNewLine & "平均分 90分" & vbNewLine & _

         vbNewLine & "姓名 杨小东" & vbNewLine & _

        "语文 70" & vbNewLine & "数学 70" & vbNewLine & _

        "英语 70" & vbNewLine & "总分 210分" & vbNewLine & _

        "平均分 70分" & vbNewLine & vbNewLine & _

        "姓名 方小琪" & vbNewLine & "语文 80" & vbNewLine & _

        "数学 80" & vbNewLine & "英语 80" & vbNewLine & _

        "总分 240分" & vbNewLine & "平均分 80分" & vbNewLine

Text1 = "总分 240分"

Text2 = 4

Text3 = 2

End Sub
bcrun 2010-04-23
  • 打赏
  • 举报
 回复
没明白这个向上向下是啥意思：
text2中输入:4 (提取text4中所有 "总分 240分" 向上四行)
text3中输入:2 (提取text4中所有 "总分 240分" 向下二行)
jabulin 2010-04-23
  • 打赏
  • 举报
 回复
建议将内容提取出来，放到二维数组中，然后再对数组按你的逻辑进行循环判断
初级学软件之ASP.NET第三季 ASP.NET控件的使用
初级学软件之ASP.NET第三季 ASP.NET控件的使用 视频课程 主讲内容： 第一讲 文本类型控件-Label 第二讲 文件类型控件-TextBox 第三讲 按钮类型-Button 第四讲 按钮类型-LinkButton 第五讲 按钮类型-ImageButton 第六...
JavaScript基础学习笔记
学习教程： https://www.imooc.com/learn/36 为什么学习JavaScript 所有主流浏览器都支持JavaScript。 目前，全世界大部分网页都使用JavaScript。 它可以让网页呈现各种动态效果。 做为一个Web开发师，如果你想提供漂亮的网页、令用户满意的上网体验，JavaScript是必不可少的工具。 如何插入JS 使用<script>标签在H...
Typescript 接口(interface)
TypeScript的核心原则之一是对值所具有的结构进行类型检查。 它有时被称做“鸭式辨型法”或“结构性子类型化”。 在TypeScript里，接口的作用就是为这些类型命名和为你的代码或第三方代码定义契约。 接口初探 下面通过一个简单示例来观察接口是如何工作的： `function printLabel(labelledObj: { label: string }) { console.log(labelledObj.label); } let myObj = { size: 10, label:
网页编程的学习笔记
/A&gt; 一般情况下超链接打开的目标网页是在本网页之内打开的,但是利用上面的代码可以在新窗口中打开目标网页,再重新打开时仍然在已经开启的目标网页中显示. n(2)框架中指定子网页的Name 上面的网页框架中,点击下面的产生随机数时,上面的数字会随着刷新 框架代码 &lt;HTML&gt; &lt;HEAD&gt; &lt;title&gt;Frames&lt;/title&gt; &lt;/HEAD&
Web.config详解＋asp.net优化
 Web.config详解＋asp.net优化（1）一、认识Web.config文件Web.config 文件是一个xml文本文件，它用来储存 asp.NET Web 应用程序的配置信息（如最常用的设置asp.NET Web 应用程序的身份验证方式），它可以出现在应用程序的每一个目录中。当你通过.NET新建一个Web应用程序后，默认情况下会在根目录自动创建一个默认的Web.config文件，包括默
VB基础类

7,763

社区成员

197,605

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章