【案内】小説『エクストリームセンス』について

 小説『エクストリームセンス』は、本ブログを含めていくつか掲載していますが、PC、スマフォ、携帯のいずれでも読みやすいのは、「小説家になろう」サイトだと思います。縦書きのPDFをダウンロードすることもできます。

 小説『エクストリームセンス』のURLは、 http://ncode.syosetu.com/n7174bj/

2011年5月15日日曜日

ソースコードHTML変換ツール


ソースコードを綺麗にHTMLで表示したいと思いいろいろ探しましたが、CodePublisherが気に入りました。


1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.

Public Class employee
‌ 
    Private _name As String
    Private _birthday As Date
‌ 
    '====================================================
    'Nameプロパティ
    '====================================================
    Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal Value As String)
            _name = Value
        End Set
    End Property
‌ 
    '====================================================
    'Birthdayプロパティ
    '====================================================
    Property Birthday() As Date
        Get
            Return _birthday
        End Get
        Set(ByVal Value As Date)
            _birthday = Value
        End Set
    End Property
‌ 
    '====================================================
    'Ageプロパティ
    '====================================================
    ReadOnly Property Age() As Integer
        Get
            '誕生日後の年齢をセット。
            Dim _age As Integer = _
                CType(Today.ToString("yyyy"), Integer) - _
                CType(_birthday.ToString("yyyy"), Integer)
            '現在月日が誕生月日よりも小さければ誕生日前なので-1歳。
            If CType(Today.ToString("MMdd"), Integer< _
                CType(_birthday.ToString("MMdd"), IntegerThen
                _age = _age - 1
            End If
            Return _age
        End Get
    End Property
End Class
‌ 
このコードは CodePublisher で生成しています

0 件のコメント:

コメントを投稿