VBA.Mania

vbamania.pl

Dziś jest czwartek, 15 maja 2025 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Sprawdzanie poprawności adresu e-mail otwarty rozpoczął: milrom postów: 10

napisał: admin postów: 613 umieszczony: 12 grudnia 2006 21:27
	Hm... słusznie... Troszkę poprawiłem wyrażenie regularne:) Function FunctionCheckEmail(sEmail As String) As Boolean Dim RegX As Object Set RegX = CreateObject("vbscript.regexp") RegX.Pattern = "^[_a-z0-9-]+(\.[_a-z0-9-]+)@[a-z0-9-]+(\.[a-z0-9-]+)(\.[a-z]{2,3})$" FunctionCheckEmail = RegX.Test(sEmail) Set RegX = Nothing End Function Cytat: Adminie drogi milrom się trochę pospieszył z podziękowaniami (szczęśliwy człowiek:)...bo nieświadomy) Proszę wpisać kropkę na początku adresu, podobnie wielokropek, dwie małpy... Skoro naważyłeś tego piwa, to może je wypijesz ;) Artik

napisał: milrom postów: 11 umieszczony: 6 grudnia 2006 12:03
	woielkie dzieki, pozdro.

napisał: admin postów: 613 umieszczony: 5 grudnia 2006 23:14
	Artik: To nie jest proste.:\| Eh... "zapodanie" łańcucha tekstu w ten sposób "mówi" silnikowi mechanizmu wyrażeń regularnych, że string podany jako adres email ma rzeczywiście format adresu emailowego. Ale to pewnie wiesz. Jeżeli interesuje Cię ten temat odeślę Cię do literatury: http://www.gajdaw.pl/php/wyrreg.html Temat zdecydowanie wykracza poza VBA, ale chyba nie usunę tego wątku;)

napisał: admin postów: 613 umieszczony: 5 grudnia 2006 21:10
	Artik: Obecność małpy "@" w adresie to trochę za mało. Najprościej wykorzystać do tego wyrażenie regularne:) Function FunctionCheckEmail(sEmail As String) As Boolean Dim RegX As Object Set RegX = CreateObject("vbscript.regexp") RegX.Pattern = "^[_.0-9a-z-]+@([0-9a-z][0-9a-z-]+.)+[a-z]{2,4}$" FunctionCheckEmail = RegX.Test(sEmail) Set RegX = Nothing End Function powodzenia!

napisał: milrom postów: 11 umieszczony: 5 grudnia 2006 19:37
	jak sprawdzić czy podany w komórce tekst jest poprawnie podanym adresem e-mail??

wstecz 1 dalej

wszystkich stron: 1