HSPTV!掲示板

HSPプログラミングで、コピーはできますか？
変数をそのままコピーしたいんですけど・・・

a = 10
b = a
内容はこれでコピーできます。

ttp://www.google.co.jp/search?q=HSP クリップボード

CTRL+Cでコピーみたいな奴を作りたい。

password = "aa"
input password, 100, 100, 0
button "コピーする",*copy
stop
*copy
???????????????????

の??????????????????がわからないんです

配列変数の複製を作りたいという意味と、勝手に解釈させていただきました。
memcpy を使用すれば、出来ます。

#const e1 10
#const e2 10

dim v,e1,e2

repeat e1 : a = cnt
repeat e2
 v(a,cnt) = rnd(0xFFFF)
loop
loop

dim c , e1,e2
memcpy c,v,e1*e2*4,0,0

count = 0
repeat e1
repeat e2
if(v(a,cnt)!=c(a,cnt)){
	count++
}
loop
loop

if(count){
	mes strf("%d個の相違が有ります。コピーに失敗しました",count)
}else{
	mes"正常にコピーされました"

}

>memcpy を使用すれば、出来ます。
超絶便利じゃないですか。memcpy神の速度…！！

	#include "d3m.hsp"
	#const e1 1000
	#const e2 1000
	#module
		#deffunc copyIntArray array i, array o
			dimtype o, vartype( "int" ), length(i), length2(i), length3(i), length4(i)
			memcpy o, i, 4 * (length(i)+(length(i)==0))*(length2(i)+(length2(i)==0))*(length3(i)+(length3(i)==0))*(length4(i)+(length4(i)==0))
		return
	#global
	
	;初期化
	dim v, e1, e2
	repeat e1 : a = cnt
		repeat e2
			 v( a, cnt ) = rnd( 0xFFFF )
		loop
	loop
	dim c, length( v ), length2( v )
	
	;repeatコピー
	start = d3timer()
	repeat e1 : a = cnt
		repeat e2
			 v( a, cnt ) = rnd( 0xFFFF )
		loop
	loop
	mes "repeatによるコピー：" + ( d3timer() - start )
	
	;memcpyコピー
	start = d3timer()
	copyIntArray v, c
	mes "memcpyによるコピー：" + ( d3timer() - start )

質問者さんの2レス目（39790）を見るとpasswordをクリップボードに
コピーしたいということのように感じられるのだけれど…

れみはるさんのレスが一番参考になるんではないですか？

http://www.google.co.jp/search?q=HSP クリップボード


大事なことなので2回言いました

一応リンクにしてみる
http://www.google.co.jp/search?q=HSP%83N%83%8A%83b%83v%83{%81[%83h

連投失礼

clipset で 検索 ヘルプを検索してください。

#include "hspext.as"
	clipset a

・・・全員できません。

右クリック　→　コピー　のコピーです。

もしHSP製作者がこんな命令すれば楽なのに・・・

*modoru
a = "今"
button "コピー",*copysuru
stop
*copysuru
copy a
goto *modoru

とかいいのに。

質問の内容を詳しく教えてください。
回答者が正しく理解できてない可能性があります。

あなたのイメージするcopy≒infoさんが説明したclipsetです。

くそソースだけど一応できました。

#module

#deffunc clipcopy str stl

#uselib"Kernel32.dll"
#cfunc GlobalAlloc "GlobalAlloc"  sptr,sptr
#cfunc GlobalLock "GlobalLock"  sptr
#cfunc GlobalUnlock "GlobalUnlock"  sptr
#uselib "User32.dll"
#func OpenClipboard "OpenClipboard" sptr
#func SetClipboardData "SetClipboardData" sptr,sptr
#func CloseClipboard "CloseClipboard"
#func EmptyClipboard "EmptyClipboard"


GMEM_MOVEABLE=0x2
GMEM_ZEROINIT=0x40
GHND = GMEM_MOVEABLE | GMEM_ZEROINIT
GMEM_SHARE =0x2000

CF_TEXT=1

OpenClipboard hwnd
if stat=0:stop
EmptyClipboard

hg=GlobalAlloc(GHND | GMEM_SHARE , 128)
	;mes "hglobal:"+hg
strMem = GlobalLock(hg);--Lock!
	;mes "strMem:"+strMem

dupptr data,strMem,128,2
data=""
data=stl

a=GlobalUnlock(hg);--UnLock!

SetClipboardData CF_TEXT,hg

CloseClipboard

return 

#global


clipcopy "貼り付ける文字"; copy [コピーする文字]

sdim stl,10000
stl="貼り付け場\nコピーした文字をはりつけられるかどうか試そう"
mesbox stl,640,300

stl2="コピーする文字(変更可)"
input stl2,640
objsize 640,30
button "コピー(ここをおすと「コピーする文字」がクリップボードにコピーされます。)",*copy

stop

*copy
clipcopy stl2

大事なことなので3回言いました
http://www.google.co.jp/search?q=HSP クリップボード

大事なことなので4回言いました
http://www.google.co.jp/search?q=HSP クリップボード

大事なことなので5回言いました
http://www.google.co.jp/search?q=HSP クリップボード

大事なことなので6回言いました
http://www.google.co.jp/search?q=HSP クリップボード

もうこれで解決しちゃいなよ。

	#include "hspext.as"

	txt_input = "コピーするテキストを入力してくださいな"
	objsize ginfo_winx-5*2,20
	pos 5,5
	input txt_input
	button gosub "クリップボードへ",*button_addclipboard
	stop
*button_addclipboard
	clipset txt_input
	mes "clipboardに送られたテキスト\t[ "+txt_input+" ]"
	return

clipsetなんて命令があったの！？
長いスクリプトダラダラ書いてすいませんでした。

>>whoさん
もし、気分を害されたなら謝ります。すみません、別に悪気は有りません。

　正直、答えが出ているのに、解決していない質問をみるのは、
　いらいらするのです。

　これでもう解決しちゃいなよという思いを込めて、投稿していしまいました。

　

こんにちは。久しぶりに見たら多くの返信があってびっくりしました。
infoさんが一番いいと思います。
皆様ありがとうございました

要するに、BBSで質問する前にネット検索してみようということ言いたかっただけです。
気分を害された方がいらっしゃったらすいませんでした。