Unbanning with wildcards and removing users

[Networks]

I dont want a function I want a usage for ID_JOIN and ID_TALK please? Assume i have a channellist if you must.

[o.OV]

Yes, would be a good idea to make a function for wildcard matching which changes the default behavior of some masking characters.

Good point. that reminds me..

Code Select Expand


   leftFlat = "["
   ChrW1 = ChrW$(1)
   TempA = MainStr
   Position = InStr(TempA, leftFlat)
   If Position Then
       For X = 0 To 255
           Mid$(TempA, Position, 1) = Chr1
           Position = InStr(TempA, leftFlat)
           If Position = 0 Then Exit For
       Next X
   End If
   'TempA is to be used with the Like operator in place _
   of MainStr
   'Same should be done for the other one..


That should keep the flat brackets from causing problems.

[o.OV]

I dont want a function I want a usage for ID_JOIN and ID_TALK please? Assume i have a channellist if you must.

So you plucked the code off of someone and you can't figure out how it works?

Google, Google, and Google?

[MyndFyre]

I dont want a function I want a usage for ID_JOIN and ID_TALK please? Assume i have a channellist if you must.

Pseudocode:

Code Select Expand


Switch (EventID)
 Case ID_JOIN:
   If MatchesWildcard(Username, SEARCHSTRING) Then
     BanUser Username
   Else
     ChannelList.Add User
     WriteUserJoinedMessage User, Product
   End If
 End Case
 Case ID_TALK:
   If MatchesWildcard(Username, SEARCHSTRING) Then
     BanUser Username
   Else
     WriteUserSpokeMessage User, Message
   End If
 End Case
End Switch


Wow.....  That was hard....  You should almost be able to move that right into VB by changing the Switch statement and replacing the Write...Message subroutine identifiers...

(Excuse my VB grammar, I'm not sure how the Select...Case operator works....  I know that in C and its derivitives, we use case case:... break)

[Networks]

I need some help with wildcarding code:

I want to be abled to ban tags like: *]ZeR0[*
in that format for example

my wildcard function is:

Code Select Expand


Public Function matches(ByVal uName As String, ByVal Check As String) As Boolean
Call PrepareCheck(Check)
If uName = Empty Then
  matches = False
  Exit Function
End If
If LCase$(uName) Like LCase$(Check) Then matches = True
End Function
Function PrepareCheck(ByVal toCheck As String) As String
   toCheck = Replace(toCheck, "[", "ÿ")
   toCheck = Replace(toCheck, "]", "Ö")
   toCheck = Replace(toCheck, "~", "Ü")
   toCheck = Replace(toCheck, "#", "¢")
   toCheck = Replace(toCheck, "-", "£")
   toCheck = Replace(toCheck, "&", "¥")
   toCheck = Replace(toCheck, "@", "¤")
   toCheck = Replace(toCheck, "{", "ƒ")
   toCheck = Replace(toCheck, "}", "á")
   toCheck = Replace(toCheck, "^", "í")
   toCheck = Replace(toCheck, "`", "ó")
   toCheck = Replace(toCheck, "_", "ú")
   toCheck = Replace(toCheck, "+", "ñ")
   toCheck = Replace(toCheck, "$", "Ñ")
   PrepareCheck = LCase(toCheck)
End Function


I tested the function and it works fairly well except it wont find matches with *]ZeR0[* even when there is one:

Code Select Expand


For II = 1 To Form1.Users.ListItems.Count
If matches(Form1.Users.ListItems(II), "*]zer0[") = True Then
AddC vbGreen, Form1.Users.ListItems(II) & " was found."
End If
Next II

it told me invalid pattern string y is this?
Can someone please help me with wildcard code that can find matches w/ *]ZeR0[* please

[MyndFyre]

Here is your code:

Code Select Expand


For II = 1 To Form1.Users.ListItems.Count
If matches(Form1.Users.ListItems(II), "*]zer0[") = True Then
AddC vbGreen, Form1.Users.ListItems(II) & " was found."
End If
Next II


And let me highlight an interesting section:


If matches(Form1.Users.ListItems(II), "*]zer0[" ) = True Then


Forgot a * there smart guy.

[Networks]

Not really cuz when its: *]ZeR0[ it says invalid pattern and if its *]zer0[* doesn't find it...
Plus i have a user w/ a ]zer0[ tag in users

Smart guy....