XMLファイルの作成（VBS）

Dim xdoc
Dim pi
Dim root
Dim cdata
Dim ele
Dim attr
Dim txt
  
  Set xdoc = CreateObject("Microsoft.XMLDom")
  
  Set pi = xdoc.createProcessingInstruction("xml", "version='1.0' encoding='Shift_JIS'")
  
  xdoc.appendChild(pi)
  
  Set root = xdoc.createElement("ルート")
  
  Set cdata = xdoc.createCDATASection("ごにょごにょ")
  
  root.appendChild(cdata)
  
  Set ele = xdoc.createElement("子")
  
  Set attr = xdoc.createAttribute("id")
  
  attr.value = "1"
  
  ele.setAttributeNode(attr)
  
  Set txt = xdoc.createTextNode("テキスト")
  
  ele.appendChild(txt)


  root.appendChild(ele)
  
  xdoc.appendChild(root)
  
  WScript.Echo xdoc.xml
  
  
  Set xdoc = Nothing

結果

<?xml version="1.0"?>
<ルート><![CDATA[ごにょごにょ]]><子 id="1">テキスト</子></ルート>

encodingは反映されない

XMLファイルの作成

using System.Xml;
using System.Text;

public class XmlTest
{
  public static void Main()
  {
    Encoding sjis = Encoding.GetEncoding("Shift-JIS");
    XmlTextWriter w = new XmlTextWriter(@"C:\Test.xml",sjis);
    
    w.Formatting = Formatting.Indented; 
    w.WriteStartDocument(true);
		
    w.WriteStartElement("Root"); 
	
    w.WriteStartElement("SHAIN");
    w.WriteElementString("ID","1");
    w.WriteElementString("NAME","AAA");
    w.WriteEndElement(); //SHAINタグを閉じる
		
    w.WriteStartElement("SHAIN");
    w.WriteElementString("ID","2");
    w.WriteElementString("NAME","BBB");
    w.WriteEndElement(); //SHAINタグを閉じる
		
    w.WriteStartElement("SHAIN");
    w.WriteElementString("ID","3");
    w.WriteElementString("NAME","CCC");
    w.WriteEndElement(); //SHAINタグを閉じる
		
    w.WriteEndElement(); //Rootタグを閉じる 
		
    w.WriteEndDocument(); 
		
    w.Close();
  }
}

結果

<?xml version="1.0" encoding="shift_jis" standalone="yes"?>
<Root>
  <SHAIN>
    <ID>1</ID>
    <NAME>AAA</NAME>
  </SHAIN>
  <SHAIN>
    <ID>2</ID>
    <NAME>BBB</NAME>
  </SHAIN>
  <SHAIN>
    <ID>3</ID>
    <NAME>CCC</NAME>
  </SHAIN>
</Root>

http://www.stackasterisk.jp/tech/dotNet/csharp06_01.jsp

テキストファイルの出力

using System.IO;
using System.Text;

//Shift-JISのファイル作成
class Test
{
  public static void Main()
  {
    string fname = @"C:\Test.txt";
    Encoding sjis = Encoding.GetEncoding("Shift-JIS");
    StreamWriter w = new StreamWriter(fname,false, sjis);

    w.WriteLine("ID,NAME");
    w.WriteLine("1,AAA");
    w.WriteLine("2,BBB");
    w.WriteLine("3,CCC");
    
    w.Close();
  }
}

http://www.microsoft.com/japan/msdn/library/ja/cpref/html/frlrfSystemIOStreamWriterClassTopic.asp?frame=true
http://www.microsoft.com/japan/msdn/library/ja/cpref/html/frlrfSystemTextEncodingClassTopic.asp?frame=true

ACCESSのmdbファイル作成２

Option Explicit

Dim oCat

  ' カタログオブジェクト
  Set oCat = CreateObject("ADOX.Catalog")
	
  'ACCESS97のファイル作成
  oCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db97.mdb;Jet OLEDB:Engine Type=4;"
  
  'ACCESS2000のファイル作成
  oCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db2000.mdb;Jet OLEDB:Engine Type=5;"

ACCESSのmdbファイル作成

Option Explicit

Const dbLangJapanese = ";LANGID=0x0411;CP=932;COUNTRY=0"

Dim oDBEngine
Dim oWorkSpace
  
  'ACCESS97のファイル作成
  Set oDBEngine = CreateObject("DAO.DBEngine.35")  'DAO.DBEngine.36でACCESS2000

  Set oWorkSpace = oDBEngine.WorkSpaces(0)
  oWorkSpace.createDatabase "C:\db97.mdb", dbLangJapanese

配列のコピー

http://www.microsoft.com/japan/msdn/library/ja/cpref/html/frlrfSystemArrayClassCopyTopic3.asp?frame=true

public static void Copy(
   Array sourceArray,
   int sourceIndex,
   Array destinationArray,
   int destinationIndex,
   int length
);

CSVファイルのリード

Test.csv

ID,NAME
1,"AAA"
2,"BBB"
3,"CCC"

ソース

using System.Data.Odbc;

public class Test
{
  public static void Main()
  {
    string cnstr = @"Driver={Microsoft Text Driver (*.txt; *.csv)}; DBQ=C:\TEST";
    OdbcConnection cn = new OdbcConnection(cnstr);
	
    cn.Open(); 
	
    OdbcCommand cmd = new OdbcCommand("select * from Test.csv",cn);
    
    OdbcDataReader r = cmd.ExecuteReader();
    
    while (r.Read())
    {
      System.Console.WriteLine("{0},  {1}", r["ID"], r["NAME"]);
    }
    
    r.Close(); 
    cn.Close();
  }
}