<SCRIPT language=JScript>
function RemoveAllTest(){
  var KeyArr,DicArr,dicObj,numb,str=''; // 변수를 만든다.
  dicObj=new ActiveXObject('Scripting.Dictionary');
  dicObj.Add('a','사과'); // 키와 항목을 추가한다.
  dicObj.Add('b','바나나');
  dicObj.Add('c','체리');
  KeyArr=new VBArray(dicObj.Keys()).toArray(); // Key 항목을 가져온다.
  DicArr=new VBArray(dicObj.Items()).toArray(); // 항목을 가져온다.
  for (numb in DicArr){ // dictionary를 반복한다.
    str+=numb+') "'+KeyArr[numb]+'"='+DicArr[numb]+'<BR>';
  }
  str+='dicObj.Count='+dicObj.Count+'<BR><BR>';

  dicObj.RemoveAll(); // 모든 쌍을 제거한다.
  str+='dicObj.RemoveAll()<BR>';
  str+='dicObj.Count='+dicObj.Count;
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showjs.innerHTML=RemoveAllTest('b')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=method>RemoveAll</SPAN> 메서드 예제</DIV>

<SCRIPT language=VBScript>
Function RemoveAllTestvb
  Dim KeyArr,DicArr,dicObj,numb ' 변수를 만든다.
  str=""
  Set dicObj=CreateObject("Scripting.Dictionary")
  dicObj.Add "a","사과" ' 키와 항목을 추가한다.
  dicObj.Add "b","바나나"
  dicObj.Add "c","체리"

  KeyArr=DicObj.Keys ' 키를 가져온다.
  DicArr=DicObj.Items ' 항목을 가져온다.
  For numb=0 To DicObj.Count-1 ' dictionary를 반복한다.
    str=str&"'"&KeyArr(numb)&"' : "&DicArr(numb)&"<BR>" ' 결과를 반환한다.
  Next
  str=str&"dicObj.Count="&dicObj.Count&"<BR><BR>"

  str=str&"dicObj.RemoveAll<BR>"
  dicObj.RemoveAll ' 모든 쌍을 제거한다.
  str=str&"dicObj.Count="&dicObj.Count

  RemoveAllTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=RemoveAllTestvb()">
  <SPAN class=ie>VBScript</SPAN> <SPAN class=method>RemoveAll</SPAN> 메서드 예제</DIV>