แปลงไฟล์สเป็กตรัมจากโปรแกรม OPUS เป็น csv (How to convert OPUS NIR spectra files to cvs)

     จากเว็บไซต์ http://biophotonics.lancs.ac.uk/software/macro/ ผมนำ macro มาแก้ไขเพื่อใช้สำหรับแปลงไฟล์สเป็กตรัมจากโปรแกรม OPUS ให้เป็น csv เพื่อให้สามารถนำไปใช้งานในโปรแกรมอื่นๆ เช่น R ได้

ดาวโหลดไฟล์ macro (rar)

     เซฟไฟล์นี้ไว้ในโฟลเดอร์ใดก็ได้ จากนั้นเปิดโปรแกรม OPUS (เวอร์ชั่นที่ใช้คือ 7.0)  ไปที่เมเนู Macro > Run Macro เลือกไฟล์ macro ที่เซฟไว้ดังตัวอย่าง

     เมื่อเปิดไฟล์ macro จะเริ่มทำงานทันทีโดยเห็นหน้า

ให้ใส่ Path เป็นโฟลเดอร์ที่เก็บไฟล์ OPUS และแก้ไขช่อง Name เป็น *.0 (ซึ่งเป็นนามสกุลไฟล์ของ OPUS) และใส่ Path_Destination เป็นโฟลเดอร์ที่ต้องการเก็บไฟล์ที่แปลงแล้ว (ซึ่งอาจเป็นโฟลเดอร์เดียวกับไฟล์เดิมได้) การแปลงไฟล์จะทำทุกๆ ไฟล์ที่นามสกุล *.0 ในโฟลเดอร์ที่ระบุ จากนั้นกดปุ่ม Continue เพื่อแปลงไฟล์ซึ่งเวลาที่ใช้ก็ขึ้นอยู่กับจำนวนไฟล์ เมื่อแปลงไฟล์เสร็จเราจะได้ไฟล์ดังตัวอย่าง

บน R console
> file <-file.choose()
> data <- read.csv(file,header=FALSE)
> plot(data,type="l")