文字列が結合できない？ (ID:78073)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>okuさん、nanashiさん  ありがとうございます。

チェックしましたが、iniファイルからデータは取れていると思います。
自作の関数が悪いのかと思いテストプログラムを作成してみました。

'iniファイル読込
Public Function getInifileValue( _
                   ByVal vstrFileName As String, _
                   ByVal vstrSec As String, _
                   ByVal vstrKey As String _
                   ) As String
'vstrFileName   :iniファイル名
'vstrSec        :セクション       
'vstrKey        :キー
    Dim strBuffer As String
    Dim iRet As Integer

strBuffer = Space(256) 'バッファの初期化
    vstrFileName = getAppPath() & vstrFileName

'INIファイルから情報を取得
    iRet = GetPrivateProfileString( _
            vstrSec, vstrKey, "Error", strBuffer, 256, vstrFileName)

getInifileValue = Left(strBuffer, iRet)

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As                               System.EventArgs) Handles Button1.Click
    Dim str1 As String
    Dim str2 As String
    Const con1 = "xxxxxx.ini"
    Const con2 = "String"
    Const con3_1 = "1"
    Const con3_2 = "2"
    
    str1 = getInifileValue(con1, con2, con3_1)
    str2 = getInifileValue(con1, con2, con3_2)
    
    Trace.Write("1+2:" & str1 & str2)
    Trace.Write("2+1:" & str2 & str1)          
End Sub

iniファイル
[String]
1=aaa
2=日本語

これを実行すると
1+2:aaa日本語
2+1:日本語
という結果になってしまいます。

自作の関数できちんとデータを取得できていないんでしょうか？
よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る