NSDConvert メンバ

コード変換を行います。

●コンストラクタ

名前 説明
NSDConvert NSDConvertを初期化します。

●プロパティの一覧

名前 説明
UrlEncodeSpacePlus Urlエンコードの時にスペースをプラス(+)に変換するかを指定します。

●メソッドの一覧

名前 引数 戻り値 説明
GetEncodingInfo なし NSD_ENCODING_INFO()型 エンコード情報を取得します。
SBConvert ( String, Object ) Byte()型 文字列を指定コードに変換します。
BSConvert ( Byte(), Object ) String型 指定コードデータを文字列に変換します。
BBConvert ( Byte(), Object, Object ) Byte()型 コードデータを指定コードデータに変換します。
ConvertFile ( String, String, Object, Object, Boolean ) Boolean型 ファイルを変換します。
JisToKuten ( Int16, Int16 ) Boolean型 JISコードを句点コードに変換します。
KutenToJIS ( Int16, Int16 ) Boolean型 句点コードをJISコードに変換します。
UrlEncode ( String, Object ) String型 Urlを指定コードでエンコードします。
( Byte() ) String型 Urlをエンコードします。
UrlDecode ( String, Object ) String型 Urlを指定コードでデコードします。
( String ) Byte()型 Urlをデコードします。
EncodeQuotedPrintable ( Byte(), Byte(), [Object] ) Boolean型 QuotedPrintableで変換(エンコーディング)します。
EncodeQuotedPrintableToFile ( String, String, [Object] ) Boolean型 ファイルをQuotedPrintableで変換(エンコーディング)します。
DecodeQuotedPrintable ( Byte(), Byte(), [Object] ) Boolean型 QuotedPrintableのデータを変換(デコード)します。
DecodeQuotedPrintableToFile ( String, String, [Object] ) Boolean型 QuotedPrintableのファイルを変換(デコード)します。
Uuencode ( Byte(), String ) String型 バイナリーデータをテキスト文にエンコードします。
( Byte(), String, RETURN_MARK ) String型 バイナリーデータを改行コードを指定して、テキスト文にエンコードします。
( Byte(), String, String ) String型 バイナリーデータをファイル名を指定してテキスト文にエンコードします。
( Byte(), String, String, RETURN_MARK ) String型 バイナリーデータをファイル名、改行コードを指定してテキスト文にエンコードします。
( Byte(), String, String, RETURN_MARK, Boolean ) String型 バイナリーデータをファイル名、改行コード、情報の追加有無を指定してテキスト文にエンコードします。
UuencodeFile ( String, String, String ) Boolean型 バイナリーデータファイルをテキスト文ファイルにエンコードします。
( String, String, String, String ) Boolean型 バイナリーデータファイルをファイル名を指定してテキスト文ファイルにエンコードします。
( String, String, String, String, RETURN_MARK ) Boolean型 バイナリーデータファイルをファイル名、改行コードを指定してテキスト文ファイルにエンコードします。
Uudecode ( String ) Byte()型 uuencodeによってエンコードされたテキスト文をバイナリーに戻します。
( String, String ) Byte()型 uuencodeによってエンコードされたテキスト文をバイナリーに戻し、ファイル名を返します。
( String, String, String ) Byte()型 uuencodeによってエンコードされたテキスト文をバイナリーに戻し、パーミッション、ファイル名を返します。
UudecodeFile ( String, String, [Object] ) Boolean型 uuencodeによってエンコードされたテキスト文ファイルをバイナリーファイルに変換します。
EncodeBase64ToFile ( String, String ) Boolean型 ファイルをBase64にEncodeします。
( String, String, Object, Object ) Boolean型 ファイルの文字コードを指定してBase64にEncodeします。
DecodeBase64ToFile ( String, String ) Boolean型 Base64のファイルをDecodeします。

●データ用クラスの一覧

名前：NSD_ENCODING_INFO

構文：

Public Class NSD_ENCODING_INFO
    Public DispName As String
    Public CodePage As Integer
    Public Name As String
End Class

内容：エンコード情報用クラス。

名前 型 説明
DispName String 表示名。
CodePage Integer コードページID。
Name String 名前。

●定数の一覧

名前：TEXT_ENCODING　(エンコード種類 *がついているコードページは、基になるプラットフォームに関係なく.NET Frameworkでネイティブにサポートされています。)
名前 内容
IBM037 IBM EBCDIC (US - カナダ)
IBM437 OEM アメリカ合衆国
IBM500 IBM EBCDIC (インターナショナル)
ASMO_708 アラビア語 (ASMO 708)
DOS_720 アラビア語 (DOS)
ibm737 ギリシャ語 (DOS)
ibm775 バルト言語 (DOS)
ibm850 西ヨーロッパ言語 (DOS)
ibm852 中央ヨーロッパ言語 (DOS)
IBM855 OEM キリル
ibm857 トルコ語 (DOS)
IBM00858 OEM マルチリンガル ラテン I
IBM860 ポルトガル語 (DOS)
ibm861 アイスランド語 (DOS)
DOS_862 ヘブライ語 (DOS)
IBM863 フランス語 (カナダ) (DOS)
IBM864 アラビア語 (864)
IBM865 北欧 (DOS)
cp866 キリル言語 (DOS)
ibm869 ギリシャ語, Modern (DOS)
IBM870 IBM EBCDIC (多国語ラテン 2)
windows_874 タイ語 (Windows)
cp875 IBM EBCDIC (ギリシャ語 Modern)
shift_jis 日本語 (シフト JIS)
gb2312 簡体字中国語 (GB2312) *
ks_c_5601_1987 韓国語
big5 繁体字中国語 (Big5)
IBM1026 IBM EBCDIC (トルコ語ラテン 5)
IBM01047 IBM ラテン-1
IBM01140 IBM EBCDIC (US - カナダ - ヨーロッパ)
IBM01141 IBM EBCDIC (ドイツ - ヨーロッパ)
IBM01142 IBM EBCDIC (デンマーク - ノルウェー - ヨーロッパ)
IBM01143 IBM EBCDIC (フィンランド - スウェーデン - ヨーロッパ)
IBM01144 IBM EBCDIC (イタリア - ヨーロッパ)
IBM01145 IBM EBCDIC (スペイン - ヨーロッパ)
IBM01146 IBM EBCDIC (UK - ヨーロッパ)
IBM01147 IBM EBCDIC (フランス - ヨーロッパ)
IBM01148 IBM EBCDIC (インターナショナル - ヨーロッパ)
IBM01149 IBM EBCDIC (アイスランド語 - ヨーロッパ)
utf_16 Unicode *
unicodeFFFE Unicode (ビッグ エンディアン) *
windows_1250 中央ヨーロッパ言語 (Windows)
windows_1251 キリル言語 (Windows
Windows_1252 西ヨーロッパ言語 (Windows) *
windows_1253 ギリシャ語 (Windows)
windows_1254 トルコ語 (Windows)
windows_1255 ヘブライ語 (Windows)
windows_1256 アラビア語 (Windows)
windows_1257 バルト言語 (Windows)
windows_1258 ベトナム語 (Windows)
Johab 韓国語 (Johab)
macintosh 西ヨーロッパ言語 (Mac)
x_mac_japanese 日本語 (Mac)
x_mac_chinesetrad 繁体字中国語 (Mac)
x_mac_korean 韓国語 (Mac) *
x_mac_arabic アラビア語 (Mac)
x_mac_hebrew ヘブライ語 (Mac)
x_mac_greek ギリシャ語 (Mac)
x_mac_cyrillic キリル言語 (Mac)
x_mac_chinesesimp 簡体字中国語 (Mac) *
x_mac_romanian ルーマニア語 (Mac)
x_mac_ukrainian ウクライナ語 (Mac)
x_mac_thai タイ語 (Mac)
x_mac_ce 中央ヨーロッパ言語 (Mac)
x_mac_icelandic アイスランド語 (Mac)
x_mac_turkish トルコ語 (Mac)
x_mac_croatian クロアチア語 (Mac)
utf_32 Unicode (UTF-32) *
utf_32BE Unicode (UTF-32 ビッグ エンディアン) *
x_Chinese_CNS 繁体字中国語 (CNS)
x_cp20001 TCA 台湾
x_Chinese_Eten 繁体字中国語 (Eten)
x_cp20003 IBM5550 台湾
x_cp20004 TeleText 台湾
x_cp20005 Wang 台湾
x_IA5 西ヨーロッパ言語 (IA5)
x_IA5_German ドイツ語 (IA5)
x_IA5_Swedish スウェーデン語 (IA5)
x_IA5_Norwegian ノルウェー語 (IA5)
us_ascii US-ASCII *
x_cp20261 T.61
x_cp20269 ISO -6937
IBM273 IBM EBCDIC (ドイツ)
IBM277 IBM EBCDIC (デンマーク - ノルウェー)
IBM278 IBM EBCDIC (フィンランド - スウェーデン)
IBM280 IBM EBCDIC (イタリア)
IBM284 IBM EBCDIC (スペイン)
IBM285 IBM EBCDIC (UK)
IBM290 IBM EBCDIC (日本語カタカナ)
IBM297 IBM EBCDIC (フランス)
IBM420 IBM EBCDIC (アラビア語)
IBM423 IBM EBCDIC (ギリシャ語)
IBM424 IBM EBCDIC (ヘブライ語)
x_EBCDIC_KoreanExtended IBM EBCDIC (韓国語 Extended)
IBM_Thai IBM EBCDIC (タイ語)
koi8_r キリル言語 (KOI8-R)
IBM871 IBM EBCDIC (アイスランド語)
IBM880 IBM EBCDIC (キリル言語 - ロシア語)
IBM905 IBM EBCDIC (トルコ語)
IBM00924 IBM ラテン-1
EUC__JP 日本語 (JIS 0208-1990 および 0212-1990)
x_cp20936 簡体字中国語 (GB2312-80) *
x_cp20949 韓国語 Wansung *
cp1025 IBM EBCDIC (キリル言語 セルビア - ブルガリア)
koi8_u キリル言語 (KOI8-U)
iso_8859_1 西ヨーロッパ言語 (ISO) *
iso_8859_2 中央ヨーロッパ言語 (ISO)
iso_8859_3 ラテン 3 (ISO)
iso_8859_4 バルト言語 (ISO)
iso_8859_5 キリル言語 (ISO)
iso_8859_6 アラビア語 (ISO)
iso_8859_7 ギリシャ語 (ISO)
iso_8859_8 ヘブライ語 (ISO-Visual) *
iso_8859_9 トルコ語 (ISO)
iso_8859_13 エストニア語 (ISO)
iso_8859_15 ラテン 9 (ISO)
x_Europa ヨーロッパ
iso_8859_8_i ヘブライ語 (ISO-Logical) *
iso_2022_jp 日本語 (JIS) *
csISO2022JP 日本語 (JIS 1 バイト カタカナ可) *
iso_2022_jp_1byteKatakana 日本語 (JIS 1 バイト カタカナ可 - SO/SI) *
iso_2022_kr 韓国語 (ISO) *
x_cp50227 簡体字中国語 (ISO-2022) *
euc_jp 日本語 (EUC) *
EUC_CN 簡体字中国語 (EUC) *
euc_kr 韓国語 (EUC) *
hz_gb_2312 簡体字中国語 (HZ) *
GB18030 簡体字中国語 (GB18030) *
x_iscii_de ISCII デバナガリ文字 *
x_iscii_be ISCII ベンガル語 *
x_iscii_ta ISCII タミール語 *
x_iscii_te ISCII テルグ語 *
x_iscii_as ISCII アッサム語 *
x_iscii_or ISCII オリヤー語 *
x_iscii_ka ISCII カナラ語 *
x_iscii_ma ISCII マラヤラム語 *
x_iscii_gu ISCII グジャラート語 *
x_iscii_pa ISCII パンジャブ語 *
utf_7 Unicode (UTF-7) *
utf_8 Unicode (UTF-8) *

 

名前：RETURN_MARK　(改行コード指定。)
名前 内容
CrLf 復帰+改行 (キャリッジリターン + ラインフィールド)。
Cr 復帰 (キャリッジリターン)。
Lf 改行 (ラインフィールド)。

 

●NSDConvertコンストラクタの説明

構文：Public Sub New()

使用法：Dim NSDC As New NSDConvert

引数：なし。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert
        :
End Class

●NSDConvertプロパティの説明

名前：UrlEncodeSpacePlus

構文：Public Property UrlEncodeSpacePlus() As Boolean

機能：Urlエンコードの時にスペースをプラス(+)に変換するかを指定します。

Set値：True ：スペースをプラス(+)で変換します。

False：スペースを%20で変換します。

Get値：Set値を参照。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    ' Urlエンコード.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Url As String = Me.TextBox1.Text
            NSDC.UrlEncodeSpacePlus = True
            Me.TextBox2.Text = NSDC.UrlEncode(Str_Url, "shift_jis")
        Catch ex As Exception
        End Try
    End Sub
End Class

●NSDConvertメソッド の説明

名前：GetEncodingInfo
構文：Public Function GetEncodingInfo() As NSD_ENCODING_INFO()

機能：エンコード情報を取得します。

引数：なし。

戻り値：NSD_ENCODING_INFO()

戻り値の説明：

エンコード情報を返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert
    Dim E_List() As NSDConvert.NSD_ENCODING_INFO

    Private Sub Form1_Load( ByVal sender As System.Object, _
                            ByVal e As System.EventArgs _
                            ) Handles MyBase.Load
        Try
            E_List = NSDC.GetEncodingInfo()

            With Me.ComboBox1
                For Int_Loop As Integer = 0 To E_List.Length - 1
                    .Items.Add(E_List(Int_Loop).Name)
                Next Int_Loop

                For Int_Loop As Integer = 0 To .Items.Count - 1
                    If .Items(Int_Loop).ToString = "shift_jis" Then
                        .SelectedItem = .Items(Int_Loop)
                        Exit For
                    End If
                Next Int_Loop
            End With
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：SBConvert

構文：Public Function SBConvert( Source , ConvertCode ) As Byte()

機能：文字列を指定コードに変換します。

引数：

名前 型 引数渡しの方法 説明
Source String 値渡し(ByVal) 元の文字列を渡します。
ConvertCode Object 値渡し(ByVal) 変換後の文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：Byte()

戻り値の説明：

変換後のバイト配列データを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    ' Urlエンコード.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Url As String = Me.TextBox1.Text
            Dim Byte_Data() As Byte = NSDC.SBConvert(Str_Url, "shift_jis")
            NSDC.UrlEncodeSpacePlus = True
            Me.TextBox2.Text = NSDC.UrlEncode(Byte_Data)
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：BSConvert
構文：Public Function BSConvert( Data() , ConvertCode ) As String

機能：指定コードデータを文字列に変換します。

引数：

名前 型 引数渡しの方法 説明
Data() Byte 値渡し(ByVal) 元の文字列を渡します。
ConvertCode Object 値渡し(ByVal) 変換後の文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：String

戻り値の説明：

変換後の文字列を返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Url As String = Me.TextBox1.Text
            Dim Byte_Data() As Byte = NSDC.SBConvert(Str_Url, "shift_jis")
            Me.TextBox2.Text = NSDC.BSConvert(Byte_Data, "shift_jis")
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：BBConvert
構文：Public Function BBConvert( Source() , SourceCode , ConvertCode ) As Byte()

機能：コードデータを指定コードデータに変換します。

引数：

名前 型 引数渡しの方法 説明
Source() Byte 値渡し(ByVal) 元のデータを渡します。
SourceCode Object 値渡し(ByVal) 元のデータの文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。
ConvertCode Object 値渡し(ByVal) 変換後の文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：Byte()

戻り値の説明：

変換後のバイト配列データを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Url As String = Me.TextBox1.Text
            Dim Byte_SJISData() As Byte = NSDC.SBConvert(Str_Url, "shift_jis")
            Dim Byte_UTF8Data() As Byte = NSDC.BBConvert(Byte_SJISData, _
                                                    "shift_jis", "utf-8")
            Me.TextBox2.Text = NSDC.BSConvert(Byte_UTF8Data, "utf-8")
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：ConvertFile
構文：Public Function ConvertFile( SourceFile , ConvertFile , SourceCode , ConvertCode , AddCode ) As Boolean

機能：ファイルを変換します。

引数：

名前 型 引数渡しの方法 説明
SourceFile String 値渡し(ByVal) 元のファイルのフルパス名を渡します。
ConvertFile String 値渡し(ByVal) 変換後ファイルのフルパス名を渡します。
SourceCode Object 値渡し(ByVal) 元のデータの文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。
ConvertCode Object 値渡し(ByVal) 変換後の文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。
AddCode Boolean 値渡し(ByVal) 変換後ファイルに文字コードの判定コードを追加するかを指定します。
True ：追加します。
False：追加しません。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = "C:\Data\S_JIS.txt"
            Dim Str_File2 As String = "C:\Data\Utf-8.txt"

            ' ファイルを変換します.
            If NSDC.ConvertFile(Str_File1, Str_File2, _
                              "shift_jis", _
                              "utf-8", _
                              True) Then
                MsgBox("変換しました。")
            Else
                MsgBox("変換に失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：JisToKuten
構文：Public Function JisToKuten( JISCode , KutenCode ) As Boolean

機能：JISコードを句点コードに変換します。

引数：

名前 型 引数渡しの方法 説明
JISCode Int16 値渡し(ByVal) JISコードを渡します。
KutenCode Int16 参照渡し(ByRef) 句点コードを返します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    ' JIS→句点.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button4.Click
        Try
            If IsNumeric(Me.TextBox1.Text) Then
                Dim Int_Kuten As Int16
                If NSDC.JisToKuten(CInt(Me.TextBox1.Text), Int_Kuten) Then
                    Me.TextBox2.Text = "&H" & Hex(Int_Kuten)
                Else
                    MsgBox("句点に変換できません。")
                End If
            Else
                MsgBox("句点に変換できません。")
            End If
        Catch ex As Exception
            MsgBox("句点に変換できません。")
        End Try
    End Sub
End Class

 

名前：KutenToJIS
構文：Public Function KutenToJIS( KutenCode , JISCode ) As Boolean

機能：句点コードをJISコードに変換します。

引数：

名前 型 引数渡しの方法 説明
KutenCode Int16 値渡し(ByVal) 句点コードを渡します。
JISCode Int16 参照渡し(ByRef) JISコードを返します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    ' 句点→JIS.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            If IsNumeric(Me.TextBox1.Text) Then
                Dim Int_JIS As Int16
                If NSDC.KutenToJIS(CInt(Me.TextBox1.Text), Int_JIS) Then
                    Me.TextBox2.Text = "&H" & Hex(Int_JIS)
                Else
                    MsgBox("JISに変換できません。")
                End If
            Else
                MsgBox("JISに変換できません。")
            End If
        Catch ex As Exception
            MsgBox("JISに変換できません。")
        End Try
    End Sub
End Class

 

名前：UrlEncode
機能：Urlをエンコードします。

①Urlを指定コードでエンコードします。

構文：Public Function UrlEncode( Url , Encoding ) As String

引数：

 

名前 型 引数渡しの方法 説明
Url String 値渡し(ByVal) 元のURLを渡します。
Encoding Object 値渡し(ByVal) エンコードするコードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：String

戻り値の説明：

エンコード後のURLを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    ' Urlエンコード.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Url As String = Me.TextBox1.Text
            NSDC.UrlEncodeSpacePlus = True
            Me.TextBox2.Text = NSDC.UrlEncode(Str_Url, "shift_jis")
        Catch ex As Exception
        End Try
    End Sub
End Class

 

②Urlをエンコードします。

構文：Public Function UrlEncode( Url() ) As String

引数：

 

名前 型 引数渡しの方法 説明
Url() Byte 値渡し(ByVal) 元のURLを渡します。

戻り値：String

戻り値の説明：

エンコード後のURLを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    ' Urlエンコード.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Url As String = Me.TextBox1.Text
            Dim Byte_Data() As Byte = NSDC.SBConvert(Str_Url, "shift_jis")
            NSDC.UrlEncodeSpacePlus = True
            Me.TextBox2.Text = NSDC.UrlEncode(Byte_Data)
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：UrlDecode
機能：Urlをデコードします。

①Urlを指定コードでデコードします。

構文：Public Function UrlDecode( Url , Encoding ) As String

引数：

 

名前 型 引数渡しの方法 説明
Url String 値渡し(ByVal) エンコード後のURLを渡します。
Encoding Object 値渡し(ByVal) エンコードするコードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：String

戻り値の説明：

デコードしたURLを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    ' Urlエンコード.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Url As String = Me.TextBox1.Text
            NSDC.UrlEncodeSpacePlus = True
            Me.TextBox2.Text = NSDC.UrlDecode(Str_Url, "shift_jis")
        Catch ex As Exception
        End Try
    End Sub
End Class

 

②Urlをデコードします。

構文：Public Function UrlDecode( Url ) As Byte()

引数：

名前 型 引数渡しの方法 説明
Url String 値渡し(ByVal) エンコード後のURLを渡します。

戻り値：Byte()

戻り値の説明：

デコードしたURLを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    ' Urlエンコード.
    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Url As String = Me.TextBox1.Text
            NSDC.UrlEncodeSpacePlus = True
            Dim Byte_Data() = NSDC.UrlDecode(Str_Url)
            Me.TextBox2.Text = NSDC.BSConvert(Byte_Data, "shift_jis")
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：EncodeQuotedPrintable
構文：Public Function EncodeQuotedPrintable( SData() , DData() , [Encoding] ) As Boolean

機能：QuotedPrintableで変換(エンコーディング)します。

引数：

名前 型 引数渡しの方法 説明
SData() Byte 値渡し(ByVal) 元のデータを渡します。
DData() Byte 参照渡し(ByRef) QuotedPrintableに変換したデータを返します。
[Encoding] Object 値渡し(ByVal) 元のデータの文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            ' データを読み込みます.
            Dim Byte_RData() As Byte = _
                    my.Computer.FileSystem.ReadAllBytes("C:\Data\S_JIS.TXT")
            ' 変換後のデータ.
            Dim Byte_Data() As Byte = Nothing
            If NSDC.EncodeQuotedPrintable(Byte_RData, Byte_Data, "Shift_JIS") Then
                MsgBox("エンコードしました。")
            Else
                MsgBox("エンコードに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：EncodeQuotedPrintableToFile

構文：Public Function EncodeQuotedPrintableToFile( SFile , DFile , [Encoding] ) As Boolean

機能：ファイルをQuotedPrintableで変換(エンコーディング)します。

引数：

名前 型 引数渡しの方法 説明
SFile String 値渡し(ByVal) 元のファイルのフルパス名を渡します。
DFile String 値渡し(ByVal) QuotedPrintableにEncodeするファイルのフルパス名を渡します。
[Encoding] Object 値渡し(ByVal) 元のファイルの文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = Me.TextBox1.Text
            Dim Str_File2 As String = Me.TextBox2.Text

            ' ファイルをQuotedPrintableにエンコードします.
            If NSDC.EncodeQuotedPrintableToFile(Str_File1, _
                                             Str_File2, _
                                             "shift_jis") Then
                MsgBox("エンコードしました。")
            Else
                MsgBox("エンコードに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：DecodeQuotedPrintable
構文：Public Function DecodeQuotedPrintable( SData() , DData() , [Encoding] ) As Boolean

機能：QuotedPrintableのデータを変換(デコード)します。

引数：

名前 型 引数渡しの方法 説明
SData() Byte 値渡し(ByVal) 元のデータ(QuotedPrintableのデータ)を渡します。
DData() Byte 参照渡し(ByRef) QuotedPrintableを変換(デコード)したデータを返します。
[Encoding] Object 値渡し(ByVal) 元のデータの文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            ' データを読み込みます.
            Dim Byte_RData() As Byte = _
                    my.Computer.FileSystem.ReadAllBytes("C:\Data\S_JIS.TXT")
            ' 変換後のデータ.
            Dim Byte_Data() As Byte = Nothing
            If NSDC.DecodeQuotedPrintable(Byte_RData, Byte_Data, "Shift_JIS") Then
                MsgBox("デコードしました。")
            Else
                MsgBox("デコードに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：DecodeQuotedPrintableToFile
構文：Public Function DecodeQuotedPrintableToFile( SFile , DFile , [Encoding] ) As Boolean

機能：QuotedPrintableのファイルを変換(デコード)します。

引数：

名前 型 引数渡しの方法 説明
SFile String 値渡し(ByVal) 元のファイル(QuotedPrintableのファイル)のフルパス名を渡します。
DFile String 値渡し(ByVal) QuotedPrintableをDecodeしたファイルのフルパス名を渡します。
[Encoding] Object 値渡し(ByVal) 元のファイルの文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = Me.TextBox1.Text
            Dim Str_File2 As String = Me.TextBox2.Text

            ' ファイルをQuotedPrintableからデコードします.
            If NSDC.DecodeQuotedPrintableToFile(Str_File2, _
                                             Str_File1, _
                                             True) Then
                MsgBox("デコードしました。")
            Else
                MsgBox("デコードに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：Uuencode

機能：バイナリーデータをテキスト文にエンコードします。

※uuencode/uudecodeはUNIXでよく用いられます。

①バイナリーデータをテキスト文にエンコードします。

構文：Public Function Uuencode( Source() , Permission ) As String

引数：

 

名前 型 引数渡しの方法 説明
Source() Byte 値渡し(ByVal) バイナリデータを渡します。
Permission String 値渡し(ByVal) パーミッションを渡します。
※３桁の8進数で表します。
　 777
　 | | +-および他のユーザー。
　 | +--グループ。
　 +---所有者。
　 4=読み取り、2=書き込み、1=実行。

戻り値：String

戻り値の説明：

エンコードした結果を返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Byte_Data() As Byte = _
                my.Computer.FileSystem.ReadAllBytes("C:\Data\Sample.jpg")
            Dim Str_Data As String = NSDC.Uuencode( Byte_Data, "666")
        Catch ex As Exception
        End Try
    End Sub
End Class

 

②バイナリーデータを改行コードを指定して、テキスト文にエンコードします。

構文：Public Function Uuencode( Source() , Permission , R_Mark ) As String

引数：

 

名前 型 引数渡しの方法 説明
Source() Byte 値渡し(ByVal) バイナリデータを渡します。
Permission String 値渡し(ByVal) パーミッションを渡します。
※３桁の8進数で表します。
　 777
　 | | +-および他のユーザー。
　 | +--グループ。
　 +---所有者。
　 4=読み取り、2=書き込み、1=実行。
R_Mark RETURN_MARK 値渡し(ByVal) 改行コードを指定します。

戻り値：String

戻り値の説明：

エンコードした結果を返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Byte_Data() As Byte = _
                my.Computer.FileSystem.ReadAllBytes("C:\Data\Sample.jpg")
            Dim Str_Data As String = _
                NSDC.Uuencode( Byte_Data, "666", NSDConvert.RETURN_MARK.Lf)
        Catch ex As Exception
        End Try
    End Sub
End Class

 

③バイナリーデータをファイル名を指定してテキスト文にエンコードします。

構文：Public Function Uuencode( Source() , Permission , FileName ) As String

引数：

 

名前 型 引数渡しの方法 説明
Source() Byte 値渡し(ByVal) バイナリデータを渡します。
Permission String 値渡し(ByVal) パーミッションを渡します。
※３桁の8進数で表します。
　 777
　 | | +-および他のユーザー。
　 | +--グループ。
　 +---所有者。
　 4=読み取り、2=書き込み、1=実行。
FileName String 値渡し(ByVal) パスなしのファイル名を渡します。

戻り値：String

戻り値の説明：

エンコードした結果を返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Byte_Data() As Byte = _
                my.Computer.FileSystem.ReadAllBytes("C:\Data\Sample.jpg")
            Dim Str_Data As String = _
                NSDC.Uuencode( Byte_Data, "666", "Sample.jpg")
        Catch ex As Exception
        End Try
    End Sub
End Class

 

④バイナリーデータをファイル名、改行コードを指定してテキスト文にエンコードします。

構文：Public Function Uuencode( Source() , Permission , FileName , R_Mark ) As String

引数：

 

名前 型 引数渡しの方法 説明
Source() Byte 値渡し(ByVal) バイナリデータを渡します。
Permission String 値渡し(ByVal) パーミッションを渡します。
※３桁の8進数で表します。
　 777
　 | | +-および他のユーザー。
　 | +--グループ。
　 +---所有者。
　 4=読み取り、2=書き込み、1=実行。
FileName String 値渡し(ByVal) パスなしのファイル名を渡します。
R_Mark RETURN_MARK 値渡し(ByVal) 改行コードを指定します。

戻り値：String

戻り値の説明：

エンコードした結果を返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Byte_Data() As Byte = _
                my.Computer.FileSystem.ReadAllBytes("C:\Data\Sample.jpg")
            Dim Str_Data As String = _
                NSDC.Uuencode( Byte_Data, "666", "Sample.jpg", _
                             NSDConvert.RETURN_MARK.Lf)
        Catch ex As Exception
        End Try
    End Sub
End Class

 

⑤バイナリーデータをファイル名、改行コード、情報の追加有無を指定してテキスト文にエンコードします。

構文：Public Function Uuencode( Source(), Permission, FileName, R_Mark, AddInfo ) As String

引数：

 

名前 型 引数渡しの方法 説明
Source() Byte 値渡し(ByVal) バイナリデータを渡します。
Permission String 値渡し(ByVal) パーミッションを渡します。
※３桁の8進数で表します。
　 777
　 | | +-および他のユーザー。
　 | +--グループ。
　 +---所有者。
　 4=読み取り、2=書き込み、1=実行。
FileName String 値渡し(ByVal) パスなしのファイル名を渡します。
R_Mark RETURN_MARK 値渡し(ByVal) 改行コードを指定します。
AddInfo Boolean 値渡し(ByVal) 情報の追加有無を渡します。
True ：bigin、end情報を追加します。
False：bigin、end情報を追加しません。

戻り値：String

戻り値の説明：

エンコードした結果を返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Byte_Data() As Byte = _
                my.Computer.FileSystem.ReadAllBytes("C:\Data\Sample.jpg")
            Dim Str_Data As String = _
                NSDC.Uuencode( Byte_Data, "666", "Sample.jpg", _
                             NSDConvert.RETURN_MARK.Lf, True)
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：UuencodeFile

機能：バイナリーデータをテキスト文にエンコードします。

※uuencode/uudecodeはUNIXでよく用いられます。

①バイナリーデータファイルをテキスト文ファイルにエンコードします。

構文：Public Function UuencodeFile( SourceFile , EncodeFile , Permission ) As Boolean

引数：

 

名前 型 引数渡しの方法 説明
SourceFile String 値渡し(ByVal) 元のファイルのフルパス名を渡します。
EncodeFile String 値渡し(ByVal) 変換後ファイルのフルパス名を渡します。
Permission String 値渡し(ByVal) パーミッションを渡します。
※３桁の8進数で表します。
　 777
　 | | +-および他のユーザー。
　 | +--グループ。
　 +---所有者。
　 4=読み取り、2=書き込み、1=実行。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = Me.TextBox1.Text
            Dim Str_File2 As String = Me.TextBox2.Text

            ' ファイルをUuencodeします.
            If NSDC.UuencodeFile(Str_File1, Str_File2, "666") Then
                MsgBox("Uuencodeしました。")
            Else
                MsgBox("Uuencodeに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

②バイナリーデータファイルをファイル名を指定してテキスト文ファイルにエンコードします。

構文：Public Function UuencodeFile( SourceFile, EncodeFile, Permission, FileName) As Boolean

引数：

 

名前 型 引数渡しの方法 説明
SourceFile String 値渡し(ByVal) 元のファイルのフルパス名を渡します。
EncodeFile String 値渡し(ByVal) 変換後ファイルのフルパス名を渡します。
Permission String 値渡し(ByVal) パーミッションを渡します。
※３桁の8進数で表します。
　 777
　 | | +-および他のユーザー。
　 | +--グループ。
　 +---所有者。
　 4=読み取り、2=書き込み、1=実行。
FileName String 値渡し(ByVal) パスなしのファイル名を渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = Me.TextBox1.Text
            Dim Str_File2 As String = Me.TextBox2.Text

            ' ファイルをUuencodeします.
            If NSDC.UuencodeFile(Str_File1, Str_File2, "666", "") Then
                MsgBox("Uuencodeしました。")
            Else
                MsgBox("Uuencodeに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

③バイナリーデータファイルをファイル名、改行コードを指定してテキスト文ファイルにエンコードします。

構文：Public Function UuencodeFile( SourceFile, EncodeFile, Permission, FileName, R_Mark) As Boolean

引数：

 

名前 型 引数渡しの方法 説明
SourceFile String 値渡し(ByVal) 元のファイルのフルパス名を渡します。
EncodeFile String 値渡し(ByVal) 変換後ファイルのフルパス名を渡します。
Permission String 値渡し(ByVal) パーミッションを渡します。
※３桁の8進数で表します。
　 777
　 | | +-および他のユーザー。
　 | +--グループ。
　 +---所有者。
　 4=読み取り、2=書き込み、1=実行。
FileName String 値渡し(ByVal) パスなしのファイル名を渡します。
R_Mark RETURN_MARK 値渡し(ByVal) 改行コードを指定します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = Me.TextBox1.Text
            Dim Str_File2 As String = Me.TextBox2.Text

            ' ファイルをUuencodeします.
            If NSDC.UuencodeFile( Str_File1, Str_File2, _
                                "666", "" , NSDConvert.RETURN_MARK.Lf ) Then
                MsgBox("Uuencodeしました。")
            Else
                MsgBox("Uuencodeに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：Uudecode
機能：uuencodeによってエンコードされたテキスト文をバイナリーに戻します。

※uuencode/uudecodeはUNIXでよく用いられます。

①uuencodeによってエンコードされたテキスト文をバイナリーに戻します。

構文：Public Function Uudecode( Data ) As Byte()

引数：

 

名前 型 引数渡しの方法 説明
Data String 値渡し(ByVal) uudecodeでエンコードされた文字列を渡します。

戻り値：Byte()

戻り値の説明：

デコードしたデータを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Data As String = my.Computer.FileSystem.ReadAllText("C:\Data\Sample.txt")
            Dim Byte_Data() = NSDC.Uudecode(Str_Data)
        Catch ex As Exception
        End Try
    End Sub
End Class

 

②uuencodeによってエンコードされたテキスト文をバイナリーに戻し、ファイル名を返します。

構文：Public Function Uudecode( Data , FileName ) As Byte()

引数：

 

名前 型 引数渡しの方法 説明
Data String 値渡し(ByVal) uudecodeでエンコードされた文字列を渡します。
FileName String 参照渡し(ByRef) ファイル名を返します。

戻り値：Byte()

戻り値の説明：

デコードしたデータを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Data As String = my.Computer.FileSystem.ReadAllText("C:\Data\Sample.txt")
            Dim Str_FileName As String = Nothing
            Dim Byte_Data() = NSDC.Uudecode(Str_Data, Str_FileName)
        Catch ex As Exception
        End Try
    End Sub
End Class

 

③uuencodeによってエンコードされたテキスト文をバイナリーに戻し、パーミッション、ファイル名を返します。

構文：Public Function Uudecode( Data , Permission , FileName ) As Byte()

引数：

 

名前 型 引数渡しの方法 説明
Data String 値渡し(ByVal) uudecodeでエンコードされた文字列を渡します。
Permission String 参照渡し(ByRef) 変換後ファイルのフルパス名を渡します。
FileName String 参照渡し(ByRef) ファイル名を返します。

戻り値：Byte()

戻り値の説明：

デコードしたデータを返します。

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_Data As String = my.Computer.FileSystem.ReadAllText("C:\Data\Sample.txt")
            Dim Str_FileName As String = Nothing
            Dim Str_Permission As String = Nothing
            Dim Byte_Data() = NSDC.Uudecode(Str_Data, Str_Permission, Str_FileName)
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：UudecodeFile
構文：Public Function UudecodeFile( SourceFile , DecodeFile , [SourceCode] ) As Boolean

機能：uuencodeによってエンコードされたテキスト文ファイルをバイナリーファイルに変換します。

※uuencode/uudecodeはUNIXでよく用いられます。

引数：

名前 型 引数渡しの方法 説明
SourceFile String 値渡し(ByVal) UuencodeFileでエンコードされたファイルのフルパス名を渡します。
DecodeFile String 値渡し(ByVal) デコード後のファイルのフルパス名を渡します。
※フォルダ名の場合は、データ内容に記述されているファイル名で作成します。
[SourceCode] Object 値渡し(ByVal) 元のデータの文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            If NSDC.UudecodeFile("C:\Data\Sample.txt", "C:\Data\Sample.jpg") Then
                MsgBox("Uudecodeしました。")
            Else
                MsgBox("Uudecodeに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：EncodeBase64ToFile
機能：ファイルをBase64にEncodeします。
①ファイルをBase64にEncodeします。

構文：Public Function EncodeBase64ToFile( SourceFile , EncodeFile ) As Boolean

引数：

 

名前 型 引数渡しの方法 説明
SourceFile String 値渡し(ByVal) 元のファイルのフルパス名を渡します。
EncodeFile String 値渡し(ByVal) Base64にEncodeしたファイルのフルパス名を渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = Me.TextBox1.Text
            Dim Str_File2 As String = Me.TextBox2.Text

            If NSDC.EncodeBase64ToFile(Str_File1, Str_File2) Then
                MsgBox("Base64にエンコードしました。")
            Else
                MsgBox("Base64のエンコードに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

②ファイルの文字コードを指定してBase64にEncodeします。

構文：Public Function EncodeBase64ToFile( SourceFile , EncodeFile , SourceCode , Encode ) As Boolean

引数：

 

名前 型 引数渡しの方法 説明
SourceFile String 値渡し(ByVal) 元のファイルのフルパス名を渡します。
EncodeFile String 値渡し(ByVal) Base64にEncodeしたファイルのフルパス名を渡します。
SourceCode Object 値渡し(ByVal) 元のデータの文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。
Encode Object 値渡し(ByVal) 変換後の文字コードを渡します。
※ NSD_ENCODING_INFO、TEXT_ENCODING、System.Text.Encoding、エンコードのコードページID、エンコーディングのIANAに登録されている名前のいずれかを渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = Me.TextBox1.Text
            Dim Str_File2 As String = Me.TextBox2.Text

            If NSDC.EncodeBase64ToFile(Str_File1, Str_File2, _
                                     "Shift_JIS", "utf-8") Then
                MsgBox("Base64にエンコードしました。")
            Else
                MsgBox("Base64のエンコードに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

名前：DecodeBase64ToFile
構文：Public Function DecodeBase64ToFile( SourceFile , DecodeFile ) As Boolean

機能：Base64のファイルをDecodeします。

引数：

名前 型 引数渡しの方法 説明
SourceFile String 値渡し(ByVal) Base64にEncodeしたファイルのフルパス名を渡します。
DecodeFile String 値渡し(ByVal) デコード後ファイルのフルパス名を渡します。

戻り値：Boolean

戻り値の説明：

True：成功　False：失敗

使用例：

Public Class Form1
    Dim NSDC As New NSDConvert

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            Dim Str_File1 As String = Me.TextBox1.Text
            Dim Str_File2 As String = Me.TextBox2.Text

            If NSDC.DecodeBase64ToFile(Str_File1, Str_File2) Then
                MsgBox("Base64からデコードしました。")
            Else
                MsgBox("Base64からのデコードに失敗しました。")
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

Copyright (C) 2010-2013 Nihon System Developer Corp. All Rights Reserved.