by konisi » 2008年5月14日(水) 07:12
これでいけますか?
コード: 全て選択
#prompt
Dim buf[MAX_PATH-1] As Byte,i As Long,j As long,len As Long
GetModuleFileName(0,buf,MAX_PATH)
len=lstrlen(buf)
For i=0 To len
If buf>=128 then
i++
ElseIf buf=92 then
j=i
End If
Next
buf[j]=0
Print MakeStr(buf)
これでいけますか?[code]#prompt
Dim buf[MAX_PATH-1] As Byte,i As Long,j As long,len As Long
GetModuleFileName(0,buf,MAX_PATH)
len=lstrlen(buf)
For i=0 To len
If buf[i]>=128 then
i++
ElseIf buf[i]=92 then
j=i
End If
Next
buf[j]=0
Print MakeStr(buf)[/code]