| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 196 人关注过本帖
标题:如何判断一个字符串中是否包含特定字符串 并标记出来
只看楼主 收藏
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:51
帖 子:545
专家分:3117
注 册:2016-5-10
  得分:0 
标签也只能显示一种字体与颜色,下面是把标签1和标签2无缝组合到一起
程序代码:
Private Sub Form_Load()
Text1.Text = "西瓜1 菠萝5  蜜桃3 番茄4  苹果0 柚8"
Label1.Caption = ""
Label2.Caption = ""
'==========================
Label1.Width = 2415
Label1.Height = 800
Label1.FontBold = False   '标签1不是粗体
Label1.ForeColor = &H0   '标签1为黑色
Label2.Width = Label1.Width
Label2.Height = Label1.Height
Label2.Left = Label1.Left + Label1.Width   '标签2的位置紧接着标签1
Label2.Top = Label1.Top
Label2.FontBold = True   '标签2为粗体
Label2.ForeColor = &H1000FF   '标签2为红色
'
======以上是把标签1和标签2无缝组合到一起============
End Sub


Command1_Click事件基本没有问题,有点小小的改动:
程序代码:
Private Sub Command1_Click()
Dim B, I As Integer, J As Integer, C() As String, D() As String
Label1.Caption = ""
Label2.Caption = ""
B = Array("菠萝", "桔子", "西瓜", "番茄", "苹果", "柚子")
'Text1.Text = Replace(Text1.Text, " ", ",")   不需要将空格转换为逗号
D() = Split(Text1.Text, " ")   '判断空格就可以
For I = 0 To UBound(D)
D(I) = Trim(D(I))   '这里将字符串的前后空格去除
Next I
ReDim C(0 To UBound(D))    'C的下标应该与D的下标相同
For I = 0 To UBound(D)
    For J = 0 To UBound(B)
        If InStr(1, D(I), B(J), 1) > 0 Then
        C(I) = "存在"
        End If
    Next J
Next I
For I = 0 To UBound(D)
If C(I) = "存在" Then
Label1.Caption = Label1.Caption & D(I) & Space(3)
ElseIf C(I) = "" Then
Label2.Caption = Label2.Caption & D(I) & Space(3)
End If
Next I
End Sub



[此贴子已经被作者于2017-10-16 10:03编辑过]

附件: 您没有浏览附件的权限,请 登录注册

QQ    2653043392
3 天前 10:01
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:51
帖 子:545
专家分:3117
注 册:2016-5-10
  得分:0 
在第二页,误认为没有上传出去,多上传了一次,见笑了。

[此贴子已经被作者于2017-10-17 18:04编辑过]

附件: 您没有浏览附件的权限,请 登录注册

QQ    2653043392
3 天前 10:09
wlrjgzs
Rank: 7Rank: 7Rank: 7
等 级:黑侠
威 望:6
帖 子:94
专家分:564
注 册:2017-4-10
  得分:0 
回复 8楼 ZHRXJR
3 天前 12:08







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.055173 second(s), 9 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved