複合化ツール作ってみました

このフォーラムに新規トピックを投稿できます
このフォーラムではゲスト投稿が許可されています

複合化ツール作ってみました

msg# 1

前の投稿 - 次の投稿 | 親投稿 - 子投稿.1 .2 .3 .4 .5 .6 .7 .8 | 投稿日時 2011-4-29 20:22

とおりすがり

Option Explicit

Const dbLangGeneral=";LANGID=0x0409;CP=1252;COUNTRY=0"

Dim mdb,tmplt,fso,dst,src,re,dbe,arg,fldr,fl,db,rs,qty,into,values,n,e,v,p
Dim kje023,kje176,kje178,kje179,kje180,kje181,kje182

Function Log10(X)
Log10=Log(X)/Log(10)
End Function

mdb=Replace(WScript.ScriptFullName,WScript.ScriptName,"Integrate.mdb")
tmplt=Replace(WScript.ScriptFullName,WScript.ScriptName,"AISA_TEMPLATE.xml")
Set fso=CreateObject("Scripting.FileSystemObject")
Set dst=CreateObject("MSXML2.DOMDocument")
Set src=CreateObject("MSXML2.DOMDocument")
Set re=CreateObject("VBScript.RegExp")
Set dbe=CreateObject("DAO.DBEngine.36")
For Each arg In WScript.Arguments
kje023=0
kje176=1
kje178=1
kje179=1
kje180=0
kje181=0
kje182=0
dst.load tmplt
If fso.FileExists(mdb) Then
fso.DeleteFile mdb
End If
Set db=dbe.CreateDatabase(mdb,dbLangGeneral)
re.Pattern="[\\/][^\\/]*$"
fldr=re.Replace(arg,"")
re.Pattern="^.*[\\/]"
fl=re.Replace(arg,"")
db.Execute "SELECT * INTO AIS FROM [text;Database="&fldr&"].["&fl&"]"
db.Execute "CREATE INDEX AIS ON AIS(PATH)"
db.Execute "CREATE TABLE KJA024(KJE166 text,KJE167 text,KJE168 FLOAT)"
Set rs=db.OpenRecordset("SELECT PATH,SUM(QTY) AS SUMQTY FROM AIS GROUP BY PATH")
' Set rs=db.OpenRecordset("SELECT PATH,QTY AS SUMQTY FROM AIS")
Do Until rs.Eof
src.load rs.Fields("PATH").Value
qty=rs.Fields("SUMQTY").Value
'**************
'* TOTAL INFO *
'**************
For Each n In src.selectNodes("//KJA024")
into=""
values=""
Set v=n.selectSingleNode(".//KJE166/PROPERTY_VALUE")
If Not v Is Nothing Then
into=into&"KJE166,"
values=values&""""&v.text&""","
End If
Set v=n.selectSingleNode(".//KJE167/PROPERTY_VALUE")
If Not v Is Nothing Then
into=into&"KJE167,"
values=values&""""&v.text&""","
End If
Set v=n.selectSingleNode(".//KJE168/PROPERTY_VALUE")
If Not v Is Nothing Then
e=0
Set p=v.selectSingleNode("@prefix")
If Not p Is Nothing Then
Select Case p.text
Case "m"
e=-3
Case "k"
e=3
Case Else
'WScript.Echo "ERROR:UNKNOWN PREFIX """&p.text&""""
End Select
End If
into=into&"KJE168,"
values=values&(qty*v.text*(10^e))&","
End If
db.Execute "INSERT INTO KJA024("&Left(into,Len(into)-1)&")VALUES("&Left(values,Len(values)-1)&")"
Next
'********
'* MASS *
'********
Set v=src.selectSingleNode("//KJE023/PROPERTY_VALUE")
e=0
Set p=v.selectSingleNode("@prefix")
If Not p Is Nothing Then
Select Case p.text
Case "m"
e=-3
Case "k"
e=3
Case Else
'WScript.Echo "ERROR:UNKNOWN PREFIX """&p.text&""""
End Select
End If
kje023=kje023+qty*v.text*(10^e)
'******************
'* Making to set *
'******************
With src.selectSingleNode("//KJE176/PROPERTY_VALUE")
If .text-kje176>0 Then
kje176=.text
End If
End With
'******************
'* GADSL division *
'******************
kje178=Sgn(kje178*src.selectSingleNode("//KJE178/PROPERTY_VALUE").text)
'****************
'* JIG division *
'****************
kje179=Sgn(kje179*src.selectSingleNode("//KJE179/PROPERTY_VALUE").text)
'********************
'* Content division *
'********************
kje180=Sgn(kje180+src.selectSingleNode("//KJE180/PROPERTY_VALUE").text)
'*****************
'* Material list *
'*****************
v=src.selectSingleNode("//KJE181/PROPERTY_VALUE").text
If kje181=0 Or kje181>v Then
kje181=v
End If
'******************
'* Substance list *
'******************
v=src.selectSingleNode("//KJE182/PROPERTY_VALUE").text
If kje182=0 Or kje182>v Then
kje182=v
End If
'**************
'* INTERLAYER *
'**************
For Each v In src.selectNodes("//KJE128/PROPERTY_VALUE")
With v
e=0
Set p=.selectSingleNode("@prefix")
If p Is Nothing Then
Set p=.attributes.setNamedItem(dst.createAttribute("prefix"))
p.text=""
Else
Select Case p.text
Case "m"
e=-3
Case "k"
e=3
Case Else
'WScript.Echo "ERROR:UNKNOWN PREFIX """&p.text&""""
End Select
End If
.text=.text*(10^e)
e=Sgn(Int((Log10(.text)-2)/3))*3
.text=.text/(10^e)
With p
Select Case e
Case -3
.text="m"
Case 0
.text=""
Case 3
.text="k"
End Select
End With
End With
Next
For Each v In src.selectNodes("//KJE133/PROPERTY_VALUE")
With v
e=0
Set p=.selectSingleNode("@prefix")
If p Is Nothing Then
Set p=.attributes.setNamedItem(dst.createAttribute("prefix"))
p.text=""
Else
Select Case p.text
Case "m"
e=-3
Case "k"
e=3
Case Else
'WScript.Echo "ERROR:UNKNOWN PREFIX """&p.text&""""
End Select
End If
.text=.text*(10^e)
e=Sgn(Int((Log10(.text)-2)/3))*3
.text=.text/(10^e)
With p
Select Case e
Case -3
.text="m"
Case 0
.text=""
Case 3
.text="k"
End Select
End With
End With
Next
For Each n In src.selectNodes("//KJA027")
With n
If .selectSingleNode("EDK027-001") Is Nothing Then
With .insertBefore(src.createNode(1,"EDK027-001",.namespaceURI),.selectSingleNode(".//KJA028"))
With .appendChild(src.createNode(1,"KJE055",.namespaceURI))
.attributes.setNamedItem(src.createAttribute("type")).nodeValue="String"
.attributes.setNamedItem(src.createAttribute("pub_level")).nodeValue="0"
.attributes.setNamedItem(src.createAttribute("segment")).nodeValue="KSG007"
.appendChild(src.createNode(1,"PROPERTY_SNAME",.namespaceURI)).text="Interlayer name"
.appendChild(src.createNode(1,"PROPERTY_VALUE",.namespaceURI))
End With
With .appendChild(src.createNode(1,"KJE057",.namespaceURI))
.attributes.setNamedItem(src.createAttribute("type")).nodeValue="Real"
.attributes.setNamedItem(src.createAttribute("pub_level")).nodeValue="0"
.attributes.setNamedItem(src.createAttribute("segment")).nodeValue="KSG007"
.appendChild(src.createNode(1,"PROPERTY_SNAME",.namespaceURI)).text="No of parts"
.appendChild(src.createNode(1,"PROPERTY_VALUE",.namespaceURI)).text=1
End With
With .appendChild(src.createNode(1,"KJE184",.namespaceURI))
.attributes.setNamedItem(src.createAttribute("type")).nodeValue="Int"
.attributes.setNamedItem(src.createAttribute("pub_level")).nodeValue="0"
.attributes.setNamedItem(src.createAttribute("segment")).nodeValue="KSG007"
.appendChild(src.createNode(1,"PROPERTY_SNAME",.namespaceURI)).text="Interlayer level"
.appendChild(src.createNode(1,"PROPERTY_VALUE",.namespaceURI)).text="1"
End With
End With
End If
With .selectSingleNode("EDK027-001")
With .selectSingleNode(".//KJE055/PROPERTY_VALUE")
If Len(.text) Then
re.Pattern="^(.*/)?"
.text=re.Replace(.text,"/")
End If
.text=n.selectSingleNode("//KJE172/PROPERTY_VALUE").text&.text
End With
With .selectSingleNode(".//KJE057/PROPERTY_VALUE")
.text=.text*qty
End With
End With
End With
dst.selectSingleNode("//KJA026").appendChild(n)
Next
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
'**************
'* TOTAL INFO *
'**************
With dst.selectSingleNode("//KJA001")
Set rs=db.OpenRecordset("SELECT KJE166,KJE167,SUM(KJE168)AS SUM_KJE168 FROM KJA024 GROUP BY KJE166,KJE167")
Do Until rs.Eof
With.InsertBefore(dst.createNode(1,"KJA024",.namespaceURI),.selectSingleNode("KJA026"))
.appendChild(dst.createNode(1,"CLASS_NAME",.namespaceURI)).text="TOTAL INFO"
With .appendChild(dst.createNode(1,"EDK024-001",.namespaceURI))
With .appendChild(dst.createNode(1,"KJE166",.namespaceURI))
.attributes.setNamedItem(dst.createAttribute("type")).text="String"
.attributes.setNamedItem(dst.createAttribute("pub_level")).text="0"
.attributes.setNamedItem(dst.createAttribute("segment")).text="KSG003"
.appendChild(dst.createNode(1,"PROPERTY_SNAME",.namespaceURI)).text="Material name"
.appendChild(dst.createNode(1,"PROPERTY_VALUE",.namespaceURI)).text=rs.Fields("KJE166")
End With
With .appendChild(dst.createNode(1,"KJE167",.namespaceURI))
.attributes.setNamedItem(dst.createAttribute("type")).text="String"
.attributes.setNamedItem(dst.createAttribute("pub_level")).text="0"
.attributes.setNamedItem(dst.createAttribute("segment")).text="KSG003"
.appendChild(dst.createNode(1,"PROPERTY_SNAME",.namespaceURI)).text="Mat class code"
.appendChild(dst.createNode(1,"PROPERTY_VALUE",.namespaceURI)).text=rs.Fields("KJE167")
End With
With .appendChild(dst.createNode(1,"KJE168",.namespaceURI))
.attributes.setNamedItem(dst.createAttribute("type")).text="RealM"
.attributes.setNamedItem(dst.createAttribute("pub_level")).text="0"
.attributes.setNamedItem(dst.createAttribute("segment")).text="KSG003"
.appendChild(dst.createNode(1,"PROPERTY_SNAME",.namespaceURI)).text="Material mass"
With .appendChild(dst.createNode(1,"PROPERTY_VALUE",.namespaceURI))
e=Sgn(Int((Log10(rs.Fields("SUM_KJE168"))-2)/3))*3
.text=rs.Fields("SUM_KJE168")/(10^e)
With .attributes.setNamedItem(dst.createAttribute("prefix"))
Select Case e
Case -3
.text="m"
Case 0
.text=""
Case 3
.text="k"
End Select
End With
.attributes.setNamedItem(dst.createAttribute("unit")).text="g"
End With
End With
End With
End With
rs.MoveNext
Loop
rs.Close
Set rs=Nothing
End With
'********
'* MASS *
'********
With dst.selectSingleNode("//KJE023/PROPERTY_VALUE")
e=Sgn(Int((Log10(kje023)-2)/3))*3
.text=kje023/(10^e)
With .selectSingleNode("@prefix")
Select Case e
Case -3
.text="m"
Case 0
.text=""
Case 3
.text="k"
End Select
End With
.selectSingleNode("@unit").text="g"
End With
'******************
'* Making to set *
'******************
dst.selectSingleNode("//KJE176/PROPERTY_VALUE").text=kje176
'******************
'* GADSL division *
'******************
dst.selectSingleNode("//KJE178/PROPERTY_VALUE").text=kje178
'****************
'* JIG division *
'****************
dst.selectSingleNode("//KJE179/PROPERTY_VALUE").text=kje179
'********************
'* Content devision *
'********************
dst.selectSingleNode("//KJE180/PROPERTY_VALUE").text=kje180
'*****************
'* Material list *
'*****************
dst.selectSingleNode("//KJE181/PROPERTY_VALUE").text=kje181
'******************
'* Substance list *
'******************
dst.selectSingleNode("//KJE182/PROPERTY_VALUE").text=kje182
'**************
'* INTERLAYER *
'**************
If kje176=2 Then
For Each n In dst.selectNodes("//KJA030")
If n.selectNodes("KJA031").length=0 Then
n.selectSingleNode("..").removeChild(n)
End If
Next
For Each n In dst.selectNodes("//KJA029")
If n.selectNodes("KJA030").length=0 Then
n.selectSingleNode("..").removeChild(n)
End If
Next
For Each n In dst.selectNodes("//KJA028")
If n.selectNodes("KJA029").Length=0 Then
n.selectSingleNode("..").removeChild(n)
End If
Next
For Each n In dst.selectNodes("//KJA027")
If n.selectNodes("KJA028").length=0 Then
n.selectSingleNode("..").removeChild(n)
End If
Next
End If
db.Execute "DROP TABLE AIS"
db.Execute "DROP TABLE KJA024"
db.Close
Set db=Nothing
fso.DeleteFile mdb
re.Pattern="[^\.]*$"
dst.save fldr&"\AIS"&Mid("BC",kje176,1)&"_"&re.Replace(fl,"xml")
Next
Set dst=Nothing
Set src=Nothing
Set dbe=Nothing
MsgBox "FINISHED"

投票数:2 平均点:0.00 返信する

Re: 複合化ツール作ってみました

msg# 1.1

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-4-29 20:24

ゲスト

<?xml version="1.0" encoding="UTF-8" ?>
- <DESCRIPT xmlns="http://www.biz.jemai.or.jp/JAMP-GP/library/20090106mas-ecalgaAS1_1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.biz.jemai.or.jp/JAMP-GP/library/20090106mas-ecalgaAS1_1 20090106mas-ecalgaAS1_1.xsd">
- 
<ORGANIZATION_CODE />
- <VENDOR code="" Url="">
<VENDOR_NAME />
</VENDOR>
<PRODUCT_NO pub_level="0" status="0" />
<VERSION_NO>1</VERSION_NO>
<LANG>ja</LANG>
- <KJA001>
<CLASS_SNAME>ENVIRONMENT/ROOT</CLASS_SNAME>
- <KJA017>
<CLASS_SNAME>JAMP SHEET</CLASS_SNAME>
- <EDK017-001>
- <KJE134 type="String" pub_level="0" segment="KSG005">
<PROPERTY_SNAME>Sheet GP ID</PROPERTY_SNAME>
<PROPERTY_VALUE>9999999999999999</PROPERTY_VALUE>
</KJE134>
- <KJE135 type="ENUM" pub_level="0" segment="KSG005">
<PROPERTY_SNAME>Sheet type</PROPERTY_SNAME>
<PROPERTY_VALUE>AIS</PROPERTY_VALUE>
</KJE135>
- <KJE098 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Sheet number</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE098>
- <KJE136 type="String" pub_level="0" segment="KSG005">
<PROPERTY_SNAME>Use format</PROPERTY_SNAME>
<PROPERTY_VALUE>Ver.3.0</PROPERTY_VALUE>
</KJE136>
- <KJE014 type="Int" pub_level="0" segment="KSG001">
<PROPERTY_SNAME>Revision history</PROPERTY_SNAME>
<PROPERTY_VALUE>1</PROPERTY_VALUE>
</KJE014>
</EDK017-001>
</KJA017>
- <KJA018>
<CLASS_SNAME>PUBLISHER INFO</CLASS_SNAME>
- <EDK018-001>
- <KJE138 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Organization ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE138>
- <KJE011 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Enterprise ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE011>
- <KJE141 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>JAMP partty ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE141>
- <KJE012 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Corporate name</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE012>
- <KJE142 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Publisher remarks</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE142>
</EDK018-001>
- <KJA019>
<CLASS_SNAME>CHARGE SECTION</CLASS_SNAME>
- <EDK019-001>
- <KJE143 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Section name</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE143>
- <KJE144 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Section address</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE144>
- <KJE145 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Section phone No</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE145>
- <KJE146 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Section FAX No</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE146>
- <KJE147 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Section E-mail</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE147>
</EDK019-001>
</KJA019>
- <KJA020>
<CLASS_SNAME>CREATING INFO</CLASS_SNAME>
- <EDK020-001>
- <KJE093 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Section name</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE093>
- <KJE124 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Supplier phone No</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE124>
</EDK020-001>
</KJA020>
</KJA018>
- <KJA021>
<CLASS_SNAME>REQUESTER INFO</CLASS_SNAME>
- <EDK021-001>
- <KJE149 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Organization ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE149>
- <KJE150 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Enterprise ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE150>
- <KJE153 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>JAMP party ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE153>
- <KJE078 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Corporate name</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE078>
- <KJE154 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Request section</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE154>
- <KJE155 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>Request address</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE155>
- <KJE090 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>R/contact name</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE090>
- <KJE156 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>R/phone No</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE156>
- <KJE157 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>R/FAX No</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE157>
- <KJE091 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Section E-mail</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE091>
- <KJE158 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>R/remarks (1)</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE158>
- <KJE159 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>R/remarks (2)</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE159>
- <KJE160 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>R/remarks (3)</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE160>
</EDK021-001>
</KJA021>
- <KJA022>
<CLASS_SNAME>R/PRODUCT INFO</CLASS_SNAME>
- <EDK022-001>
- <KJE079 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Client product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE079>
- <KJE164 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>P/product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE164>
</EDK022-001>
</KJA022>
- <KJA022>
<CLASS_SNAME>R/PRODUCT INFO</CLASS_SNAME>
- <EDK022-001>
- <KJE079 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Client product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE079>
- <KJE164 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>P/product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE164>
</EDK022-001>
</KJA022>
- <KJA022>
<CLASS_SNAME>R/PRODUCT INFO</CLASS_SNAME>
- <EDK022-001>
- <KJE079 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Client product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE079>
- <KJE164 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>P/product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE164>
</EDK022-001>
</KJA022>
- <KJA022>
<CLASS_SNAME>R/PRODUCT INFO</CLASS_SNAME>
- <EDK022-001>
- <KJE079 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Client product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE079>
- <KJE164 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>P/product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE164>
</EDK022-001>
</KJA022>
- <KJA022>
<CLASS_SNAME>R/PRODUCT INFO</CLASS_SNAME>
- <EDK022-001>
- <KJE079 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Client product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE079>
- <KJE164 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>P/product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE164>
</EDK022-001>
</KJA022>
- <KJA022>
<CLASS_SNAME>R/PRODUCT INFO</CLASS_SNAME>
- <EDK022-001>
- <KJE079 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Client product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE079>
- <KJE164 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>P/product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE164>
</EDK022-001>
</KJA022>
- <KJA026>
<CLASS_SNAME>P/PRODUCT INFO</CLASS_SNAME>
- <EDK026-001>
- <KJE101 type="String" pub_level="0" segment="KSG004">
<PROPERTY_SNAME>Manufacturer</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE101>
- <KJE018 type="String" pub_level="0" segment="KSG002">
<PROPERTY_SNAME>P/product ID</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE018>
- <KJE172 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>P/general name</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE172>
- <KJE173 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>P/series name</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE173>
- <KJE174 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>P/product remarks</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE174>
- <KJE183 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>Addition remarks</PROPERTY_SNAME>
<PROPERTY_VALUE />
</KJE183>
- <KJE176 type="ENUM" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>Making to set</PROPERTY_SNAME>
<PROPERTY_VALUE>0</PROPERTY_VALUE>
</KJE176>
- <KJE177 type="ENUM" pub_level="0" segment="KSG007">
<PROPERTY_SNAME>Reported unit</PROPERTY_SNAME>
<PROPERTY_VALUE>PC</PROPERTY_VALUE>
</KJE177>
- <KJE023 type="RealM" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>Mass of product</PROPERTY_SNAME>
<PROPERTY_VALUE unit="g" prefix="" />
</KJE023>
- <KJE178 type="ENUM" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>GADSL division</PROPERTY_SNAME>
<PROPERTY_VALUE>1</PROPERTY_VALUE>
</KJE178>
- <KJE179 type="ENUM" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>JIG division</PROPERTY_SNAME>
<PROPERTY_VALUE>1</PROPERTY_VALUE>
</KJE179>
- <KJE180 type="ENUM" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>Content division</PROPERTY_SNAME>
<PROPERTY_VALUE>1</PROPERTY_VALUE>
</KJE180>
- <KJE181 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>Material list</PROPERTY_SNAME>
<PROPERTY_VALUE>1.01</PROPERTY_VALUE>
</KJE181>
- <KJE182 type="String" pub_level="0" segment="KSG003">
<PROPERTY_SNAME>Substance list</PROPERTY_SNAME>
<PROPERTY_VALUE>2.01</PROPERTY_VALUE>
</KJE182>
</EDK026-001>
</KJA026>
</KJA001>
</DESCRIPT>

投票数:21 平均点:1.43 返信する

Re: 複合化ツール作ってみました

msg# 1.2

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-4-29 20:27

とおりすがり

PATH,QTY
C:\Users\kazuo\Desktop\AIS\AISA_1.xml,10
C:\Users\kazuo\Desktop\AIS\AISB_2.xml,20
C:\Users\kazuo\Desktop\AIS\AISC_3.xml,30

投票数:1 平均点:0.00 返信する

恐れ入りますが…、

msg# 1.3

前の投稿 - 次の投稿 | 親投稿 - 子投稿.1 | 投稿日時 2011-5-1 13:31

J.M.

使い方を教えて下さい。

投票数:1 平均点:0.00 返信する

Re: 恐れ入りますが…、

msg# 1.3.1

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-5-1 23:52

とおりすがり

＜インストール＞
2011-4-29 20:22をintegreateais.vbsとして保存
2011-4-29 20:24をAISA_TEMPLATE.xmlとして保存

＜データ作成＞
データ作成製品を構成する部品のAISを作成する
CSVファイルに製品を構成する部品のAISへのパスと部品の使用数をセットする
（2011-4-29 20:27がCSVの例）

＜プログラム実行＞
CSVファイルをintegrateais.vbsにドロップするとAISファイルが生成される　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

お・し・ま・い

投票数:1 平均点:0.00 返信する

Re: 複合化ツール作ってみました

msg# 1.4

前の投稿 - 次の投稿 | 親投稿 - 子投稿.1 | 投稿日時 2011-5-2 16:21

ゲスト

おんぶに抱っこで申し訳ないのですが、

Set dbe=CreateObject("DAO.DBEngine.36")

でエラーとなります。

Access2010を入れているので120にしてみましたが、ダメでした。

投票数:1 平均点:0.00 返信する

Re: Re: 複合化ツール作ってみました

msg# 1.4.1

前の投稿 - 次の投稿 | 親投稿 - 子投稿.1 | 投稿日時 2011-5-2 17:27

とおりすがり

1か所目
Set dbe=CreateObject("DAO.DBEngine.36")
↓
Set dbe=CreateObject("DAO.DBEngine.120")

2か所目(32行目）
Set db=dbe.CreateDatabase(mdb,dbLangGeneral)
↓
Set db=dbe.workspaces(0).CreateDatabase(mdb,dbLangGeneral)

でどうですか？

投票数:2 平均点:0.00 返信する

Re: 複合化ツール作ってみました

msg# 1.5

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-5-2 17:34

とおりすがり

実行時間
4'40"　14 AIS Integration and Simplification tool_VER3.1c.xls
0'2"　IntegrateAIS.vbs
速度比
140倍

投票数:1 平均点:0.00 返信する

Re: 複合化ツール作ってみました

msg# 1.6

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-5-2 17:44

とおりすがり

実行時間
4'40"　14 AIS Integration and Simplification tool_VER3.1c.xls
0'2"　IntegrateAIS.vbs
速度比
140倍

投票数:1 平均点:0.00 返信する

Re:複合化ツール作ってみました

msg# 1.4.1.1

前の投稿 - 次の投稿 | 親投稿 - 子投稿.1 .2 | 投稿日時 2011-5-2 19:28

ゲスト

ダメでした。

エラー：ActiveX コンポーネントはオブジェクトを作成できません。：'DAO.DBEngine.120'

コード：800A01AD

投票数:7 平均点:0.00 返信する

Re: Re:複合化ツール作ってみました

msg# 1.4.1.1.1

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-5-2 19:34

J.M.

そういえば私はWin7 64bitですが、関係あるでしょうか？

投票数:2 平均点:5.00 返信する

Re: Re:複合化ツール作ってみました

msg# 1.4.1.1.2

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-5-2 19:53

とおりすがり

ACCESS(2000/2002/2003/2007/2010)もインストールしていませんし、WIN64でもありません。

こちらでは環境がないので、ACCESS2007/2010が原因なのかWIN64が原因なのか、わかりません。

http://msdn.microsoft.com/ja-jp/library/aa384190%28v=vs.85%29.aspx
には
DAO (データアクセスオブジェクト) や Jet Red データベースエンジンなど、一部のテクノロジは 64 ビット版の Windows に移植されません。
とあります。
32ビットアプリをWOW64で動かす手段があるようです。
試してみてはいかがでしょうか？

投票数:1 平均点:0.00 返信する

Re: 複合化ツール作ってみました

msg# 1.7

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-7-17 17:13

J.M.

http://www.happy2-island.com/vbs/cafe01/capter00600.shtml
http://maggothand.at.webry.info/200907/article_2.html

↑を見る限り、原因は64bitでしょうね。
対応方法として、32bitで起動するバッチファイルに、複合化対象を引数で設定したいところです。

投票数:1 平均点:0.00 返信する

Re: 複合化ツール作ってみました

msg# 1.8

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2011-7-18 10:34

J.M.

32bit環境では動作しました。

AISA_TEMPLATE.xmlの行頭の"- "を削除する必要がありました。

投票数:2 平均点:0.00 返信する

ツリー構造順で表示投稿の新しいものから

複合化ツール作ってみました

このトピックに投稿する