ACM Online Books and Courses Newsletters for Student Members

May 4, 2010 by · Leave a Comment
Filed under: devel 

Welcome to the fifth issue of the ACM Online Books and Courses Newsletter. This newsletter features news on the latest book swap, highlighted courses and resources on SQL Microsoft Server, including suggested courses, books, aids and applicable Digital Library articles.

With the update of our online books and courses, the least utilized books in our Books24x7 collection have been removed and replaced with newer editions, books suggested by members, as well as books in areas of high interest.

 Books24x7: The recently added Books24x7 offering can be found athttp://pd.acm.org/books/b24x7_new_books.cfm.

Some of the new titles include:

You can see the complete Books24x7 book listing athttp://pd.acm.org/books/b24x7_books.cfm .

With your ACM membership you can upgrade to the ITPro collection at a 40% savings. You gain access to both broad and deep coverage of over 100 different technology topics in over 8500 books, making this collection a must-have resource for just-in-time learning. Premier industry publishers include: Wrox, McGraw-Hill, Microsoft Press, and many more, best selling, classic and niche titles. Popular book series, such as The Complete Reference, Inside Out, Bibles and many others provide multifaceted, multi-skilled approaches to topics.

Go to http://pd.acm.org/books/purchase/login_books.cfm?id=252 to learn how to upgrade to the ITPro collection.

Tags: , , ,

一个空格转换为逗号的小脚本

December 10, 2009 by · 2 Comments
Filed under: devel 

Angilent 4156C半导体参数测试仪比较落后，数据存在软盘里还是空格分隔，想转成CSV文档用Excel打开绘图。
因为21个文件，一个一个手工改太麻烦，想到了用sed，
于是在工作站上写个小脚本
#!/bin/sh
#chcsv

for file in `ls`
do
sed ‘s/\ /\,/g’ $file > ~/dst/${file}.csv
done

然后用Excel2007的录制宏功能记下来画图操作，然后用VB Edit改写脚本形成自动画图。
Sub DrawCart()
‘
‘ Macro2 Macro
‘

‘
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Range("B6:C106")
   
   
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=""0"""
    ActiveChart.SeriesCollection(1).XValues = "=’" & ActiveSheet.Name & "’!$B$6:$B$101"
    ActiveChart.SeriesCollection(1).Values = "=’" & ActiveSheet.Name & "’!$C$6:$C$101"
   
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).Name = "=""1"""
    ActiveChart.SeriesCollection(2).XValues = "=’" & ActiveSheet.Name & "’!$B$102:$B$203"
    ActiveChart.SeriesCollection(2).Values = "=’" & ActiveSheet.Name & "’!$C$102:$C$203"
  
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(3).Name = "=""2"""
    ActiveChart.SeriesCollection(3).XValues = "=’" & ActiveSheet.Name & "’!$B$204:$B$305"
    ActiveChart.SeriesCollection(3).Values = "=’" & ActiveSheet.Name & "’!$C$204:$C$305"
   
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(4).Name = "=""3"""
    ActiveChart.SeriesCollection(4).XValues = "=’" & ActiveSheet.Name & "’!$B$306:$B$407"
    ActiveChart.SeriesCollection(4).Values = "=’" & ActiveSheet.Name & "’!$C$306:$C$407"

    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(4).Name = "=""4"""
    ActiveChart.SeriesCollection(4).XValues = "=’" & ActiveSheet.Name & "’!$B$408:$B$509"
    ActiveChart.SeriesCollection(4).Values = "=’" & ActiveSheet.Name & "’!$C$408:$C$509"

    ActiveChart.SeriesCollection(6).Delete
    ActiveChart.SeriesCollection(5).Delete

End Sub

Tags: