Új hozzászólás Aktív témák

• #23403 slashing senior tag

  Új Válasz 2014-09-23 12:13:40 #23403

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  slashing

  senior tag

  Nah találtam valamit a regexp-re
  engedélyezni kell az editorban a Tool/References/ a Microsoft VBScript Regular Expressions 5.5-öt

  csak a .Pattern részét írtam át ami úgy tűnik hogy hogy vezeték és keresztnév legyen szóközzel elválasztva JÓ bár a csak szóközre is jó még. Egy megfelelő patternel ez már kiküszöbölhető.

  Sub nevellenorzes()
  Dim Done As Boolean
  Dim S As String
  Dim RegEx As RegExp
  Set RegEx = New RegExp
  
  Do Until Done
  S = Application.InputBox("Add meg a nevet:")
  With RegEx
  .Pattern = "([a-zA-Z]*)\s([a-zA-Z]*)"
  Done = .Test(S)
  End With
  Loop
  MsgBox S, vbOKOnly
  End Sub

Új hozzászólás Aktív témák