| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 9176 人关注过本帖, 1 人收藏
标题:如何判断一个字符串中是否包含特定字符串 并标记出来
只看楼主 加入收藏
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册: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编辑过]


请不要选我!!!
2017-10-16 10:01
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
在第二页,误认为没有上传出去,多上传了一次,见笑了。

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


请不要选我!!!
2017-10-16 10:09
wlrjgzs
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:26
帖 子:212
专家分:1566
注 册:2017-4-10
收藏
得分:0 
回复 8楼 ZHRXJR
2017-10-16 12:08
easonchou
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-10-12
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
前段时间比较忙,没有仔细调试就匆忙结贴了。今天发现还是老问题,只要后面那个字和数组里面后面的字相同,就被判断为存在了。如“有子8 橘子 系瓜”

[此贴子已经被作者于2017-10-26 23:42编辑过]

2017-10-26 23:39
easonchou
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2017-10-12
收藏
得分:0 
与D的下标相同
For I = 0 To UBound(D)
    For J = 0 To UBound(B)
        If InStr(1, D(I), B(J), 0) > 0 Then '比较方式改成二进制就好了
        C(I) = "存在"
        End If
    Next J
Next I
2017-10-28 09:22
快速回复:如何判断一个字符串中是否包含特定字符串 并标记出来
数据加载中...
 
   



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

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