Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
VBでワード文書をHTMLに変換
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=2033#CommentId17759
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
すさん
 ()
投稿日時
2007/10/14 03:28:00
どうもご回答ありがとうございました。
なんと!その会社に採用されてしまいました。
前の人が自分でつくったのかどうかはわかりませんが、コードも見ることが出来ました。(実はVisual BasicではなくAccessについてるVBAだということが判明)
コード全部書くとすごいことになるのでちょっとだけご紹介します:
Sub MakeProdDetailPage(p_cnt As Integer, f_name As String, bgclr As String)
Debug.Print f_name
Debug.Print ProductList(p_cnt).ProdDescript
If bgclr = "" Then bgclr = "550000"
bgclr = bgcolor
pdfh = FreeFile
OutputFile = OutDir & f_name
Open OutputFile For Output As #pdfh
DoProdDetTop pdfh
f3 = FreeFile
MidBlkFile = InDir & "cmlk_detail_blk.html"
Open MidBlkFile For Input As #f3
While Not EOF(f3)
round_again:
Line Input #f3, temp
If InStr(temp, "DETAIL_IMAGE") > 0 Then
Print #pdfh, "<img border=""0"" src=""Prod_Img/" & ProductList(p_cnt).Large_img & """ alt = """ & ProductList(p_cnt).MetaTitle & """ > "
GoTo round_again:
End If
If InStr(temp, "DETAIL_NAME_CLR") > 0 Then
out_str = "<td width=""99%"" colspan=""2"" bgcolor=""#" & bgclr & """>"
Print #pdfh, out_str
Debug.Print out_str
GoTo round_again:
End If
以下条件が続く・・・
End Sub
一応、できてしまったプログラムなので私自身はそんなにわからなくても、という感じがしました。しかしVBAのコード内にHTMLコードが入っているためページ内の色の変更など、コードを変える必要性も出てきます。
VBもせっかくはじめたのでもうちょっと勉強しようと思います。ありがとうございました。