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]