vb 删除字符串中再次出现及相邻重复的字母，大写与小写为不同字母。

shaddockk 2018-04-14 01:17:02

作业题，求问大佬

...全文

1891 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

weixin_43499598 2018-10-23

打赏
举报

你好楼主你是不是也上的xc的vb？请问他的作业你还留着吗？如果可以的话发给我好吗我邮箱beikegz@126.com

脆皮大雪糕 2018-04-16

打赏
举报

目测是典型作业题

of123 2018-04-16

打赏
举报

Private Sub Command1_Click()
    Label1 = Remove_repeated_characters(Text1.Text)
End Sub

Private Sub Command2_Click()
    Label1 = Remove_continuous_characters(Text1.Text)
End Sub

Private Sub Form_Load()
    Text1 = "FuDdan, fuuDdaaa, FFuuDDDaaa"
End Sub

Private Function Remove_repeated_characters(ByVal strSource As String) As String
    Dim i As Long, j As Long, tmp As String, strResult As String

    strResult = Left(strSource, 1)
    For i = 2 To Len(strSource)
        tmp = Mid(strSource, i, 1)
        
        If tmp = "," Or tmp = "" Then
            strResult = strResult & tmp
        Else
            For j = 1 To Len(strResult)
                If tmp = Mid(strResult, j, 1) Then Exit For
            Next j
            If j > Len(strResult) Then strResult = strResult & tmp
        End If
    Next i
    
    Remove_repeated_characters = strResult
End Function

Private Function Remove_continuous_characters(ByVal strSource As String) As String
    Dim i As Long, strResult As String

    strResult = Left(strSource, 1)
    For i = 2 To Len(strSource)
        If Mid(strSource, i, 1) <> Mid(strSource, i - 1, 1) Then strResult = strResult & Mid(strSource, i, 1)
    Next i
    
    Remove_continuous_characters = strResult
End Function

赵4老师 2018-04-15

打赏
举报

正则表达式速查正则表达式举例正则表达式学习 (4页A4纸)http://download.csdn.net/detail/zhao4zhong1/1808549

舉杯邀明月 2018-04-14

打赏
举报

我没安装 .NET的编程环境，给你一段VB6代码参考。这个“语法”跟 VB.NET有些不同：　比如 Mid( )函数，你在 .NET中就可以用 “字符串.SubString”之类的代替。　具体细节我不清楚，反正在开发环境下都是“一看就知道”的。不同之处你自己修改。

Option Explicit

Private Sub Command1_Click()
   Dim strText As String
   Dim strTemp As String
   Dim strChar As String

   strTemp = Text1.Text
   strText = ""
   Do
      If ("" = strTemp) Then Exit Do
      strChar = Mid$(strTemp, 1, 1)
      strText = strText & strChar
      strTemp = Replace(strTemp, strChar, "")
   Loop
   Me.Cls
   Me.Print strText     ' 你的作业中是赋值给某 Label
End Sub

Private Sub Command2_Click()
   Dim strText As String
   Dim strChar As String
   Dim i&, p&, w As Long
   
   strText = Text1.Text
   w = Len(strText)
   p = 0&:  i = 1&
   Do
      If (i > w) Then Exit Do
      strChar = Mid$(strText, i, 1)
      For i = 1& + i To w
         If (strChar <> Mid$(strText, i, 1)) Then Exit For
      Next
      p = 1& + p
      Mid$(strText, p) = strChar
   Loop
   Me.Cls
   Me.Print Left$(strText, p) ' 你的作业中是赋值给某 Label
End Sub

shaddockk 2018-04-14