Daily Links and Annotations 06/12/2009

Posted on by Jason Coleman

Posted from Diigo. The rest of my favorite links are here.

Daily Links and Annotations 04/18/2009

Posted on by Jason Coleman

  • Daily Kos: Why yesterday’s protests were stupid

    Now’s as good a time as any to take a break from mocking the teabaggers in favor of a more serious look at what they accomplished yesterday.

    I’ve never made a secret for my distaste of most street protests, and of groups like Code Pink that think they are accomplishing anything with their street theater. But when I set out to write Taking on the System, my book on effective organizing in the 21st century, I had to dig deep to figure out why I didn’t like them, and how to differentiate the usual ineffective ANSWER-organized protests with those that actually had a positive effect (e.g. the Jena Six and pro-immigration protests of a few years ago).

    I finally determined that for a protest to be effective it needed to:

    be novel and/or unexpected
    have a sympathetic, singular, and media-friendly message
    provide great visuals
    tap into a hot-button and timely issue.

    tags: no_tag

Posted from Diigo. The rest of my favorite links are here.

Daily Links and Annotations 04/14/2009

Posted on by Jason Coleman

  • Coder’s Talk: VBScript to Replace Underscores in Filename with Spaces for All Files in a Folder

    Script to rename all files in a directory… to e.g. replace underscores with spaces… I altered to do the reverse.

    tags: no_tag

    • ‘========================================================
      ‘ VBScript to replace underscore in file name with space
      ‘ for each files in a folder
      ‘ Written by ApOgEE of http://coderstalk.blogspot.com
      ‘========================================================
      Dim sName
      Dim fso
      Dim fol

      ‘ create the filesystem object
      Set fso = WScript.CreateObject(“Scripting.FileSystemObject”)

      ‘ get current folder
      Set fol = fso.GetFolder(“.”)

      ‘ go thru each files in the folder
      For Each fil In fol.Files
      ‘ check if the file name contains underscore
       If InStr(1, fil.Name, “_”) <> 0 Then
       ‘ replace underscore with space
       sName = Replace(fil.Name, “_”, ” “)
      ‘ rename the file
       fil.Name = sName
      End If
      Next

      ‘ echo the job is completed
      WScript.Echo “Completed!”

      • Worked like a charm. I altered it to do the reverse. – post by ideadude

Posted from Diigo. The rest of my favorite links are here.