Delegate is an alternative to using the .live() method, allowing for each binding of event delegation to specific DOM elements. [...]

UnicodeString StrEncrypt( UnicodeString b )
{
	wchar_t * buffer = b.w_str();
	int temp2, temp3;
	UnicodeString buff;

	for (int i = 0; i < b.Length(); i++)
	{
			temp2 = buffer[i];
			temp3 = temp2 + 0xF;
			buff += (wchar_t)temp3;
	}

	return buff;
}

		UnicodeString buffer = "ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ1234567890";
clients[i]->socket->WriteLnRFC( StrEncrypt( buffer ));

type Parser<'a> = char list -> ('a * char list) option

// Monad
type ParserMonad() =
    member x.Bind(p, f) = fun i ->
        match p i with
        | Some (v, r) -> (f v) r
        | None        -> None
    member x.Delay(f)   = fun i -> f () i
    member x.Return(v)  = fun i -> Some (v, i)
    member x.Zero()     = fun _ -> None

// Builder instance
let parse = new ParserMonad()

// Prioritized choice
let (</>) (p1 : Parser<'a>) (p2 : Parser<'a>) : Parser<'a> = fun i ->
    match p1 i with
    | Some (v, r) -> Some (v, r)
    | None        -> p2 i

// Lookahead
let notpred p : Parser<unit> = fun i ->
    match p i with
    | None -> Some ((), i)
    | _    -> None

// Star, plus
let rec many p = many1 p </> parse.Return([])
and many1 p = parse {
    let! x = p
    let! xs = many p
    return x :: xs }

// Characters and strings
let satisfy (pred : char -> bool) : Parser<char> = fun i ->
    match i with
    | c :: r when pred c -> Some (c, r)
    | _                  -> None
let whitespace = satisfy Char.IsWhiteSpace
let anychar = satisfy (fun _ -> true)
let character c = satisfy ((=) c)
let string str =
    let rec _string str =
        match str with
        | s :: ss -> parse {
            let! _ = character s
            let! _ = _string ss
            return s :: ss }
        | [] -> parse.Return([])
    _string (Seq.toList str)


// BB specific
let rec bbexpr =
    let contents = parse {
        let! _ = notpred (string "[/b]")
        let! x = bbexpr </> anychar
        return x }
    parse {
        let! _ = string "[b]"
        let! _ = many contents
        let! _ = string "[/b]"
        return 'B' }

let bbparse = many (bbexpr </> anychar)

let result = "Hello [b]World[/b]!" |> Seq.toList |> bbparse

#!/usr/bin/env python
# -*- coding: utf-8 -*-
# Copyright (c) 2010 Martin Thurau <martin.thurau@gmail.com>
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.

# Parser for the Hafas online module

import sys, os
from os.path import abspath, dirname, join
from datetime import datetime, timedelta
from urllib import urlencode, urlopen
import logging
import re

# insert "lib" dir to the module search path
if __file__:
	appDir = dirname(abspath(__file__))
	libDir = join(appDir, 'lib')
	sys.path.insert(1, libDir)

from BeautifulSoup import BeautifulSoup, BeautifulStoneSoup
import mechanize

BASE_URI = "http://scout.hafas.de/bin/query.exe/dl?%s"

# IDs can be retrieved in this way:
#	- [URL]http://scout.hafas.de/bin/query.exe/dl?[/URL]
# - choose any trip with includes the search station
# - press "Reisebegleiter" button
# - find the link with the searched station and copy the url
# - parameter "evalid" contains the ID
LOCATIONS = {
	'FH': '715312',
	'ZOB': '160021',
	'SANDSTR': '711050',
	'BESSEMER STR': '715322',
	'MARIA GOEPPERT STR': '700857',
}


def extract_times(data, date_time):
	soup = BeautifulSoup(data)
	text = ''.join(soup.find('pre').findAll(text=True))
	times = re.findall('\d\d:\d\d', text)

	results = []
	first_depart = None
	for idx in range(0, len(times), 2):

		# transform dates in real datetime objects
		depart = datetime.strptime(date_time.strftime('%d.%m.%Y') +' '+ times[idx], '%d.%m.%Y %H:%M')
		arrive = datetime.strptime(date_time.strftime('%d.%m.%Y') +' '+ times[idx+1], '%d.%m.%Y %H:%M')

		# if time leap of the end of the day, they will be corrected
		if not first_depart:
			first_depart = depart
		if arrive < first_depart:
			arrive = arrive + timedelta(days=1)
		if depart < first_depart:
			depart = depart + timedelta(days=1)
		results.append((depart, arrive))
		
	return results



def get_trips(start_id, dest_id, date_time=datetime.now(), amount=3):

	uri = BASE_URI % urlencode({
		'date': date_time.strftime('%d.%m.%y'),
		'time': date_time.strftime('%H:%M'),
		'timesel': 'depart',
		'externalCall': 'yes',
		'start': 'yes',
		'SID': "A=1@L=%s" % start_id,
		'ZID': "A=1@L=%s" % dest_id
	})

	# config browser
	br = mechanize.Browser()
	br.set_handle_robots(False)
	br.addheaders = [('User-agent', 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008071615 Fedora/3.0.1-1.fc9 Firefox/3.0.1')]

	# calculate the needed number of fetches
	fetch_amount = 1
	if amount % 3 == 0:
		fetch_amount = amount / 3
	else:
		fetch_amount = (amount//3)+1
	
	# retreive initial data
	res = br.open(uri)
	fetch_amount -= 1

	while fetch_amount > 0:
		br.select_form(nr=0)			# there is only one form on the page
		res = br.submit(nr=1)			# the second submit is the right one
		fetch_amount -= 1

	# extract data
	times = extract_times(res.read(), date_time)

	return times[:amount]
	

if __name__ == "__main__":
	
	last_res = datetime.now()
	res = get_trips(LOCATIONS['FH'], LOCATIONS['ZOB'], amount=15)
	
	for t in res:
		print t