Re: st: Apple Script to Comment Lines in Text Wranger/BBEdit

[Steven Samuels <sjhsamuels@earthlink.net>]

Thanks for the reference, Dave.   Dataninja is John Gardner. I hadn't  
looked at the John's site for quite awhile, but your post prompted  
another visit.

There I discovered scripts that do exactly what mine does, only much  
faster.  They are the GenericComment and GenericUncomment scripts  
(http://dataninja.wordpress.com/2006/05/08/textwrangler-uncomment- 
scripts-for-stata/).  These script work out of the box not only with  
do-files, but also with R command files and LaTex files. It's a  
little embarrassing to find them for the first time, since I  
corresponded with John about using BBEdit with Stata.  I use his  
scripts for submitting Stata commands (the URL in your post) and use  
his module for syntax coloring of do-files (http:// 
dataninja.wordpress.com/2006/02/28/stata-language-module-for- 
textwrangler/).

The Dataninja site is well worth a visit.

-Steve

On Sep 23, 2008, at 9:16 PM, David Airey wrote:


> Also see the scripts for the purpose and platform/app combination at:
>
> http://dataninja.wordpress.com/2006/08/18/stata-scripts/
>
> -Dave
>
> On Sep 23, 2008, at 1:25 PM, Steven Samuels wrote:
>
> > For Mac users who edit do-files in BBEdit or Text Wrangler, here's a
> > simple script to comment and uncomment lines in selected text. (Yes,
> > "uncomment" is in the dictionary). Although the script can be slow, I
> > find it saves me effort compared to inserting and deleting  "/*" and
> > "*/" before and after a text block.  Text Wrangler users, substitute
> > "Text Wrangler" in the tell statement. To use: open in BBEdit or TW,
> > zap gremline, insert into Script Editor, save the script into the
> > BBEdit Scripts folder, and assign a menu key combination.
> >
> > -Steve
> >
> >
> > (*
> > Add & remove // in Selection
> > Activate  with Menu Key
> > *)
> >
> > tell application "BBEdit"
> > activate
> > repeat with x in lines of selection of window 1 of text document 1
> > if exists character 1 of text of x then
> > set start to character 1 of text of x as text
> > else
> > set start to ""
> > end if
> > if start is not "/" then
> > replace "^" using "// " searching in text of x options {search
> > mode:grep}
> > else
> > replace "^// " using "" searching in text of x options {search
> > mode:grep}
> > end if
> > end repeat
> > end tell
> >
> >
> >
> >
> >
> >
> > Steven Samuels
> > 845-246-0774
> > 18 Cantine's Island
> > Saugerties, NY 12477
> > EFax: 208-498-7441
> >
> >
> >
> >
> >
> > *
> > *   For searches and help try:
> > *   http://www.stata.com/help.cgi?search
> > *   http://www.stata.com/support/statalist/faq
> > *   http://www.ats.ucla.edu/stat/stata/
> *
> *   For searches and help try:
> *   http://www.stata.com/help.cgi?search
> *   http://www.stata.com/support/statalist/faq
> *   http://www.ats.ucla.edu/stat/stata/
*
*   For searches and help try:
*   http://www.stata.com/help.cgi?search
*   http://www.stata.com/support/statalist/faq
*   http://www.ats.ucla.edu/stat/stata/