URLはてな記法一括変換をつくってみた

エディタ画面にあるURL貼り付けボタンを一回一回押してURLを貼り付けるのがめんどくさいので変換プログラムを作ってみた。使用したのはVB6、初心者なりやってみたがどうだろう
参考サイト
http://www.red.oit-net.jp/tatsuya/vb/Open.htm
テキストファイル読み書き色々 - VBレスキュー(花ちゃん) Visual Basic,VS6.0,VB6.0,サンプル,Tips
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGnrlHowToAttachExternalText.html
http://homepage1.nifty.com/rucio/main/shokyu/jugyou9.htm
コード

Option Explicit
Private urldata As String

Private Sub clearbtn_Click()
urlorg.Text = ""
urlout.Text = ""
End Sub

Private Sub url_Click()
urldata = urlorg.Text
urlout.Text = ""

Dim fileNo As Integer
fileNo = FreeFile
Open "tempurl.txt" For Output As #fileNo
Print #fileNo, urldata; 'データ出力
Close #fileNo

Dim buf As String
Dim buf2 As String

fileNo = FreeFile
Open "tempurl.txt" For Input As #fileNo
Do Until EOF(fileNo)
Line Input #fileNo, buf 'ファイルから１行読込
Debug.Print buf
buf = "[" & buf & ":title]"
buf2 = buf2 & buf & vbCrLf
Loop

urlout.Text = buf2
Close #fileNo
End Sub

これでiPhone関連の大量にあるURLを貼り付ける作業がとても楽になった。自作プログラムもいいもんだね