解説用の星図をさっさかるくるプロジェクト　メモ４　Javascript+fireworks+ＶＢ２００５編

前のメモでは、解説用の星図を作るのに

・だいたいの下図が自動的に作られ、それを、パーツごとにちょっと修正できるようにするため

・Javascript で、fireworks を操ることにするが、

・Javascript では外部ファイルが使えんことがわかったので、ＶＢ２００５で Javascript をはき出すことにし

・とりあえず、ＣＳＶ形式の星図データＹＢＳＣ５.CSVを作った

次にＶＢ２００５でこれを読み込み、Javascript の命令群に変換してファイル出力をすることにする。

まず、ファイルの読み込みと単純な表示。こんなのは昔のＶＢなら一瞬でできるのだが、言語仕様がえらくかわっているので、どうなることやら。前回メモしたように昔からＶＢの解説書いてる羽山さんのガイドにちょうど取り上げられていたが、ＣＳＶファイルについては、もっといいサンプルがリンクされていたのでこれをみる

、、、がうまく動かせないので。ＶＢのヘルプを参照。結果的にはこれが一番よかった

−−−−−−−−−−−−−−−−−−−−−−

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\Documents and Settings\yoshiya\デスクトップ\YBSC5.csv")
   MyReader.TextFieldType = FileIO.FieldType.Delimited
   MyReader.SetDelimiters(",")
   Dim currentRow As String()
   While Not MyReader.EndOfData
   Try
    currentRow = MyReader.ReadFields()
    Dim currentField As String
   For Each currentField In currentRow
    MsgBox(currentField)
   Next
   Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
    MsgBox("Line " & ex.Message & "is not valid and will be skipped.")
   End Try
  End While
End Using

End Sub
End Class

ボタンをフォームにおいて、ボタンを押すと読み込み開始だが、これはこれでうまく動いているようだ。

−−−−−−−−−−−−−−−−−−−−−−

上の例では、各フィールドごとに MSGBOX が表示された。

--------------------------------------------------------------------------------

2008年01月12日 記す

続く