Vous n'êtes pas connecté. Ce forum permet seulement les utilisateurs connectés pour poster. Si vous voulez faire un post sur le forum, s'il vous plaît connecter.
<コード>
Sub InitCha()
Set oCha = CreateObject("ComCha.ChaSen")
★oCha.Init ("-j -r ""c:\program files\chasen21\dic\chasenrc"" -F
%M\t%Y\t%H\t%P-\n")
End Sub
色々と調査したら★で異常終了しているようなんで
Sub InitCha()
Set oCha = CreateObject("ComCha.ChaSen")
MsgBox oCha.Init("-j -r ""c:\program files\chasen21\dic\chasenrc"" -F
%M\t%Y\t%H\t%P-\n")
End Sub
返却値は「0」でした。