Manglede en lille reminder

Hen over sommeren bliver man som regel lidt rusten. Derfor stod jeg og manglede en lille hurtig intro til funktioner i Actionscript 3. Den fandt jeg på http://www.republicofcode.com/. En ganske udmærket website for nybegyndere og en god quick ref.

Walkman fylder rundt

Walkman'en fylder i dag 30.
Egentligt var det den brasiliansk-tyske ingeniør Andreas Pavel der i 1972 opfandt stereobelt. Han søgte patent i Italien i 1977 og i Tyskland, USA, England og Japan i 1978. Han fik afslag i USA og England.
Sony begyndte i 1979 at sælge den populære walkman og i 1980 begyndte Sony at forhandle royalty fee med Pavel. Men først i 2003 anerkendte Sony at Pavel var den retmæssige opfinder efter mange års retssager. Pavel fik i omegnen af $10.000.000 og procenter af et fremtidigt salg.

Aptana

Aptana er et fremragende alternativ til Adobes Dreamweaver. Tjek det ud her på Aptana

ASP-script til generering af links

Jeg skulle under udarbejdelsen af Aviisi.gl bruge en funktion til at smide en <a href> på alle links i en given string. Det er kommet til at se sådan ud:

<% 
Function LinkURLs(strInput) Dim iCurrentLocation  

Dim iLinkStart        
Dim iLinkEnd          
Dim strLinkText       
Dim strOutput         

iCurrentLocation = 1

Do While InStr(iCurrentLocation, strInput, "http://", 1) <> 0
iLinkStart = InStr(iCurrentLocation, strInput, "http://", 1)
iLinkEnd = InStr(iLinkStart, strInput, " ", 1)

If iLinkEnd = 0 Then iLinkEnd = Len(strInput) + 1

    Select Case Mid(strInput, iLinkEnd - 1, 1)
            Case ".", "!", "?"
            iLinkEnd = iLinkEnd - 1
    End Select

strOutput = strOutput & Mid(strInput, iCurrentLocation, iLinkStart - iCurrentLocation)

strLinkText = Mid(strInput, iLinkStart, iLinkEnd - iLinkStart)

strOutput = strOutput & "" & strLinkText & ""

iCurrentLocation = iLinkEnd

Loop

strOutput = strOutput & Mid(strInput, iCurrentLocation)
LinkURLs = strOutput

End Function
%>

Brænd ISO, DMG, IMG filer på Mac

Jeg har fundet en måde at brænde ISO-filer på Mac'en, da mit drev i PC'ern gik ned. Det er svært at finde et nyt drev en søndag formiddag :-)

Du kan bruge Dics utility som findes i applications/utilities.
Åben den iso du vil brænde. Indsæt disc og brænd. Kan klare de fleste formater.