Zjištění všech odkazů na stránce

	[6 * 9 = 42] whileTrue: [World run] Stopařův průvodce jedním převážně neškodným programovacím jazykem
Náhled \| Editovat \| Přílohy \| Historie \| Domů \| Poslední změny \| Najdi \| Nápověda \|

Swiki

Squeak

Komunita

Zjištění všech odkazů na stránce

Výsledkem metody je kolekce všech odkazů uvedených ve zdrojovém kódu stránky

page je String/Stream s analyzovanou stránkou.

getAllAnchors

	| res token anchor tokenizer |

	res := OrderedCollection new.

	tokenizer := HtmlTokenizer on: page.

	[ token := tokenizer next.  token = nil ] whileFalse: [
		token isTag ifTrue: [ 
			 (token name = 'a') ifTrue: [
				anchor := (token attribs at: #href ifAbsent: []).
				anchor ifNotNil: [ res add: anchor].
			]
		].
	].

	^ res.

Odkaz na tuto stránku

Tipy a triky, poslední úprava dne 7 Červen 2005 v 17:09:31 uživatelem dotnet

Administrátoři: ,