文字化けしてしまう

メッセージ

M.S. · #1 投稿記事 by **M.S.** » 2008年2月22日(金) 15:09

SPIRIT さんのサイトの WinTips を参考にしたのですが、
取得したドライブ名をエディットボックスに表示させたいのですが、
ドライブ名が文字化けしてしまいます。
どうすれば文字化けせずに表示されるのでしょうか？

' グローバル領域
Dim hEdit As HWND

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	hEdit[0]=GetDlgItem(hMainWnd,EditBox1)
	hEdit[1]=GetDlgItem(hMainWnd,EditBox2)
	hEdit[2]=GetDlgItem(hMainWnd,EditBox3)
	hEdit[3]=GetDlgItem(hMainWnd,EditBox4)
	hEdit[4]=GetDlgItem(hMainWnd,EditBox5)
	hEdit[5]=GetDlgItem(hMainWnd,EditBox6)

	Dim Size As DWord, n As Long
	Dim buffer As BytePtr, hIcon As DWord
	Dim Drive[10] As Byte, temp As DWord
	Dim SetDrv[255] As Byte

	'ドライブ一覧を取得
	Size=GetLogicalDriveStrings(0,NULL)
	buffer=malloc(Size+1)
	GetLogicalDriveStrings(Size,buffer)

	Size=0
	Do
		If buffer[Size]=NULL Then
			If buffer[Size+1]=NULL Then Exit Do
			lstrcpy(Drive,buffer+Size-3)
			temp=GetDriveType(Drive)
			If temp=DRIVE_FIXED Then
				wsprintf(SetDrv,"Drive %s",Left$(Drive,1))
				SetWindowText(hEdit[n],SetDrv)

				n++
			End If
		End If

		Size++
	Loop
	free(buffer)
End Sub

AB: 5.00.00 (CP3)

7 · #2 投稿記事 by 7 » 2008年2月22日(金) 20:25

> ドライブ名が文字化けしてしまいます。
> どうすれば文字化けせずに表示されるのでしょうか？
Ver.5だとwsprintf()の使い方が厳密になった感じでしょうか。

単一文字なので、%sではなく%cを使うべきです。

GetLogicalDrivesを使ってます [ここをクリックすると内容が表示されます]

コード: 全て選択

Dim dr As DWord , i As DWord
Dim Drive[10] As Byte , SetDrv[255] As Byte

	'ドライブ一覧を取得
	dr=GetLogicalDrives()

	For i = 0 To 25
		If ((1<<i) And dr) Then
			wsprintf(Drive,"%c:\",65+i)
			If GetDriveType(Drive)=DRIVE_FIXED Then
                wsprintf(SetDrv,"Drive %c",Drive[0])
			End If
		End If
	Next

追記。

wsprintf()に%sで文字列を突っ込んでみても文字化けするので、どっか調子悪いんでしょうか。(←原因分からん)

konisi

識別子「UNICODE」が定義されていて、かつEditBoxがSJIS文字用になっていたら
文字化けするかもしれないと思うのですが、
そこらへんはどうなっていますか？←Ver5で試してない

7 · #4 投稿記事 by 7 » 2008年2月23日(土) 16:28

Ver.4のDeclare文を引っ張ってきてwsprintf()を使ってみても文字化けしますし、以下のようなコードでも3Bという文字が混入します。

コード: 全て選択

Dim buf[256] As SByte ' SByteにしてみてもダメ
	wsprintf(buf,"%s","")

M.S. · #5 投稿記事 by **M.S.** » 2008年2月24日(日) 14:52

> > ドライブ名が文字化けしてしまいます。
> > どうすれば文字化けせずに表示されるのでしょうか？
> Ver.5だとwsprintf()の使い方が厳密になった感じでしょうか。
>
> 単一文字なので、%sではなく%cを使うべきです。
>

GetLogicalDrivesを使ってます [ここをクリックすると内容が表示されます]

コード: 全て選択

Dim dr As DWord , i As DWord
> Dim Drive[10] As Byte , SetDrv[255] As Byte
> 
> 	'ドライブ一覧を取得
> 	dr=GetLogicalDrives()
> 
> 	For i = 0 To 25
> 		If ((1<<i) And dr) Then
> 			wsprintf(Drive,"%c:\",65+i)
> 			If GetDriveType(Drive)=DRIVE_FIXED Then
>                 wsprintf(SetDrv,"Drive %c",Drive[0])
> 			End If
> 		End If
> 	Next

>
> 追記。
>
> wsprintf()に%sで文字列を突っ込んでみても文字化けするので、どっか調子悪いんでしょうか。(←原因分からん)

7 さんのコードでちゃんと動くようになりました。
ありがとうございます。
AB4.24では僕が書いたコードでちゃんと動きました。
今までAB4.24 の時と同じコードを書いていて、
文字化けしたことがなかったのですが…

Stringの内部構造が変化したため、直接Stringをwsprintfなどに渡せなくなってしまいました。
StrPtr関数を使うとうまくいきます。
wsprintf(SetDrv, "Drive %s", StrPtr(Left$(Drive, 1)))

ab.com コミュニティ

文字化けしてしまう

文字化けしてしまう

Re: 文字化けしてしまう

Re: 文字化けしてしまう