[카테고리:] 컴퓨터

‘Copyright: Keehwan Nam, 2012.

Public Class Form1

Private fn As String = “”

Private index As Integer = 0

Private begin As Integer = 0

Private istep As Integer = 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

OpenFileDialog1.Multiselect = False

OpenFileDialog1.InitialDirectory = My.Application.Info.DirectoryPath

OpenFileDialog1.Title = “Set the file that you want to audit”

OpenFileDialog1.CheckFileExists = False

If OpenFileDialog1.ShowDialog <> System.Windows.Forms.DialogResult.Cancel Then

fn = OpenFileDialog1.FileName

Try

begin = CInt(TextBox1.Text)

Catch

MsgBox(“Please use integers only!”)

Exit Sub

End Try

Try

istep = CInt(TextBox2.Text)

Catch

MsgBox(“Please use integers only!”)

Exit Sub

End Try

Timer1.Enabled = True

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Timer1.Enabled = False

If System.IO.File.Exists(fn) Then

Dim fns As String() = fn.Split(“.”)

Try


System.IO.File.Move(fn, System.IO.Path.GetDirectoryName(fn) & “\ThisFileMustNot.Exist”)



Do



Try



System.IO.File.Move(System.IO.Path.GetDirectoryName(fn) & “\ThisFileMustNot.Exist”, fn.Substring(0, fn.Length – fns(fns.Length – 1).Length – 1) & CStr(begin + (istep * index)) & “.” & fns(fns.Length – 1))

‘ 이 부분이 가장 신경쓴 부분이다. 자꾸 오류가 난대서…


Exit Do



Catch



End Try



index += 1



Loop



Catch


End Try

End If

Timer1.Enabled = True

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim tip As New ToolTip()

tip.AutoPopDelay = 5000

tip.InitialDelay = 1

tip.ReshowDelay = 1

tip.ShowAlways = True

tip.SetToolTip(Button1, “(c)Keehwan Nam,” & vbCr & “2012, APRI, GIST.”)

tip.SetToolTip(TextBox1, “Starting index”)

tip.SetToolTip(TextBox2, “Step”)

begin = CInt(TextBox1.Text)

istep = CInt(TextBox2.Text)

End Sub

End Class

array = [[1,2,3],[3,4,5],[3,4,5]]

[[1,2,3],[3,4,5],[3,4,5]]

for i in array:

mycsv.write(str(i)[1:-1]+”\n”)

# -*- coding: utf-8 -*-

# This program converts 16-bit TIFF files from XCAP of EPIX CCD to .csv and .png.

# This program depends on ImageMagick and wxPython.

# Please make sure ‘convert’ command is possible at the program path.

# Copyright 2012, Kee Hwan Nam, APRI, GIST.

# This program can be used under Gnu Public Licence version 3.

# Refer to http://www.gnu.org/copyleft/gpl.html

import wx

import os

import csv

import sys

reload(sys)

sys.setdefaultencoding(‘cp949’)

def convertfilter(p):

a = csv.reader(open(p.replace(“\\\\”,”\\”), ‘r’), delimiter=’,’)

pp = p[:-3] + “csv”

ppp=open(pp, ‘w’)

index = 1

flag = 0

for i in a:

if flag == 0:

d=int(i[0].split(“:”)[1])

flag+=1

else:

ppp.write(i[2])

if index%d==0:

ppp.write(“\n”)

else:

ppp.write(“,”)

index+=1

def converting(a, dirn,filen):

for filens in filen:

#~ print(filens)

print(filens[-3:].lower())

if filens[-3:].lower()==”tif”:

filename = dirn+”\\”+filens

print((“convert \”” + filename + “\” \”” + filename + “.txt\””))

os.system(“convert \”” + filename + “\” \”” + filename + “.txt\””)

os.system(“convert \”” + filename + “\” \”” + filename + “.png\””)

convertfilter(filename + “.txt”)

os.system(“del \”” + filename + “.txt\””)

class mainframe(wx.Frame):

def __init__(self, *args, **kwds):

kwds[“style”] = wx.DEFAULT_FRAME_STYLE

wx.Frame.__init__(self, *args, **kwds)

dig = wx.DirDialog(None, message=”Choose data files”, style = wx.FD_MULTIPLE)

if dig.ShowModal() == wx.ID_OK:

pp = dig.GetPath()

else:

exit()

os.path.walk(dig.GetPath(), converting, 0)

class TIFFconv(wx.App):

def OnInit(self):

wx.InitAllImageHandlers()

main = mainframe(None, -1, “”)

self.SetTopWindow(main)

main.Show(True)

main.Show(False)

exit()

return 1

if __name__ == “__main__”:

TIFFconv = TIFFconv(0)

TIFFconv.MainLoop()