怎么用createobject建立一个html对象 - 编程论坛

#2

csyx2022-02-04 12:43

Microsoft.XMLDOM

#3

sam_jiang2022-02-04 13:38

回复 2楼 csyx

html 和xml应该不是同一个吧

#4

吹水佬2022-02-04 15:35

以下是引用sam_jiang在2022-2-4 13:38:55的发言：

html 和xml应该不是同一个吧

超文本格式类似
枚举 XML DOM 元素示例

程序代码：

TEXT TO cXML TEXTMERGE NOSHOW PRETEXT 15
    <bookstore>
        <book>
            <title>标题1</title>
            <author>作者1</author>
            <year>2014</year>
        </book>
        <book>
            <title>标题2</title>
            <author>作者2</author>
            <year>2015</year>
        </book>
    </bookstore>
ENDTEXT

xd = NEWOBJECT("Microsoft.XMLDOM")
xd.async = .F.
xd.loadXML(cXML)

? xd.getElementsByTagName("title").item[0].nodeName,;
  xd.getElementsByTagName("title").item[0].childNodes.item[0].nodeValue
?
oTitles = xd.getElementsByTagName("title")
FOR i = 0 TO oTitles.length - 1
    ? oTitles.item[i].nodeName, oTitles.item[i].childNodes.item[0].nodeValue
ENDFOR
_EnumElement(xd.documentElement)
RETURN

FUNCTION _EnumElement(oElement)
    ?
    ? oElement.nodeName
    FOR EACH oChildElement IN oElement.childNodes
        DO CASE
        CASE oChildElement.nodeType == 1    && 元素
            _EnumElement(oChildElement)
        CASE oChildElement.nodeType == 3    && 是文本
             ?? " ", oChildElement.nodeValue
        ENDCASE
    ENDFOR
ENDFUNC

#5

sam_jiang2022-02-04 19:13

回复 4楼吹水佬

谢谢吹水佬，那是不是html对象没法建立要自己写程序了？我记得有一个统一编程接口的（对所有编程语言），可以对html文件当成一个对象来处理的，用于html文件解析。

[此贴子已经被作者于2022-2-4 19:18编辑过]

#6

吹水佬2022-02-04 19:31

以下是引用sam_jiang在2022-2-4 19:13:07的发言：

谢谢吹水佬，那是不是html对象没法建立要自己写程序了？我记得有一个统一编程接口的（对所有编程语言），可以对html文件当成一个对象来处理的，用于html文件解析。

不清楚具体是做什么
通常包含： HTML、CSS、JS
想要解释什么

#7

sam_jiang2022-02-04 19:32

createobject大全
Server.CreateObject("Scripting.FileSystemObject")
Server.CreateObject("Scripting.Dictionary")    HashTable
Server.CreateXObject("Word.Application")     //Server
ActiveXObject("Word.Application")     //Client
Server.CreateObject("Excel.Application")    //Server
ActiveXObject("Excel.Application")     //Client
CreateObject("PowerPoint.Application")
Server.CreateObject("Microsoft.XMLHTTP")
Server.CreateObject("Microsoft.XMLDOM")
Server.CreateObject("MSXML2.XMLHTTP.4.0")
Server.CreateObject("WScript.Shell")
Server.CreateObject("whtm>ref=100.htm>)
Server.CreateObject("MSWC.AdRotator")
CreateObject("Excel.Sheet")
MS FrontPage: oFP = CreateObject("FrontPage.Application")
MS Access: oAccess = CreateObject("Access.Application")
MS Graph: oGraph = CreateObject("MSGraph.Application")
CreateObject("PhotoShop.Application")
CreateObject("SQLDMO.SQLServer")
CreateObject("SQLDMO.Login")
CreateObject("SQLDMO.Backup")
CreateObject("SQLDMO.User")
Server.CreateObject("SQLDMO.BackupDevice")
Server.CreateObject("SQLDMO.Database")
Server.CreateObject("SQLDMO.Restore")
Server.CreateObject("MSMQ.MSMQQueueInfo")
CreateObject("MSMQ.MSMQQuery")
Server.CreateObject("ixsso.Query")
Server.CreateObject("ixsso.Util")
AccPac Advantage Corporate:
oAccPac=CreateObject("ACCPAC.xapiSession")
AccPac Report Master for Windows:
oImpApp=CreateObject("Impromptu.Application.30")
BarTender:
oBarTender = CreateObject("BarTender.Application")
CrystalReports:
oCRApplication = createobject ("CrystalRuntime.Application")
This doesn’t invoke an IDE actually.
EUDORA:
oEud = CreateObject("Eudora.EuApplication.1")
FaxMaker:
oFax = CREATEOBJECT("fmfaxapi.application")
GroupWise:
oGroupWise = CreateObject("NovellGroupWareSession")
LotusNotes:
oNotes = CreateObject("Notes.NotesSession")
oNotes = CreateObject("Notes.NotesUIWorkspace")
oNotes = CreateObject("Lotus.Notessession") (Domino 5.0.3)
MS Common Dialog:
oCommmonDialog = CreateObject(") && !!! You can’t directly create this object without a development licence, so for dynamically doing it on another machine, see below. -- PeterCrabtree
MS Internet Explorer:
oIE = CreateObject("InternetExplorer.Application")
IEAutomationExample
MS MapPoint:
oMapPoint = CreateObject("MapPoint.Application")
MSN Messenger:
oMessenger = CREATEOBJECT("MSNMessenger.MessengerApp")
MS NetMeeting:
oNetMeeting=CREATEOBJECT("netmeeting.app.1")
MS Outlook:
oOutlook = CreateObject("Outlook.Application")
MS Outlook Express: None - It is not a COM server!
MS PowerPoint:
oPP = CreateObject("PowerPoint.Application")
MS Project:
oProj = CreateObject("msProject.Application")
MS SourceSafe:
oVSS = CreateObject("SourceSafe.0")
MS Word:
oWord = CreateObject("Word.Application")
MS Visio:
oVisio = CreateObject("Visio.Application")

MS VisualCPlusPlus: (VC++)
oCpp = CreateObject("MSDev.Application")
MS VisualFoxpro:
oVFP = CreateObject("VisualFoxPro.Application")
MS WindowsScriptingHost:
oWSH = CreateObject("WScript.Shell")
Novell GroupWise:
oGroupWise = CreateObject("NovellGroupWareSession")
PCAnywhere (host):
oPCAHost = CreateObject("WinAWSvr.BeHostDataManager")
PCAnywhere (remote):
oPCARem = CreateObject("WinAWSvr.RemoteDataManager")
QuickBooks:
QBSessionManager = CreateObject("QBFC2.QBSessionManager")
RationalRose:
oRose = CreateObject("Rose.Application")
TAPIFax:
oTAPIFax = CreateObject(’FaxServer.FaxServer’)
WindowsShell:
oWSH = CreateObject("Shell.Application")
Windows Media Player:
oWMP = CREATEOBJECT("WMPlayer.OCX")
oPlayList = oWmp.PlaylistCollection.GetAll()
oWmp.currentPlaylist = oPlayList.Item(0) && Zero based array
*!* Music starts!
Windows Messenger:
oMessenger = CREATEOBJECT("Messenger.MessengerApp")
WinFax:
oWinFax = CreateObject("WinFax.SDKSend")
WinPrint :
oWinPrint = CreateObject("WinPrint.WinPrintX")
SQL-DMO object:
loSQL = CREATEOBJECT("SQLDMO.Application")
Others:
Scripting Shell:
oShell = CreateObject("WScript.Shell")
Scripting Network Object:
oNet = CreateObject(")
Scripting Regular Expression Parser:
oReg = CreateObject("VBScript.RegExp")
SQL DMO SQL Server:
CreateObject("SQLDMO.SQLServer")

居然没有。。。

#8

sam_jiang2022-02-04 19:38

回复 6楼吹水佬

谢谢吹水佬，我也是闲着没事，被隔离，哈哈。

看了加菲猫的一些技术文章，想自己试试。

#9

吹水佬2022-02-04 21:13

回复 7楼 sam_jiang

InternetExplorer.Application
这个可以的吧

#10

吹水佬2022-02-04 21:22

WebBrowserr的Document

#11

sam_jiang2022-02-04 22:36

回复 9楼吹水佬

这个是打开一个浏览器

#12

sam_jiang2022-02-04 22:43

lchtml=filetostr("zipper.html")
oxml=NEWOBJECT('microsoft.xmldom')
?oxml.loadXML(lchtml) && 显示是.f.

下面是zipper.html的内容
<html>
<head>这是我的第一个文件！
<title>
</title>
</head>
<body bgcolor="silver">
<table id="GenTable" border=1>
<tr>
<th>供应商</th>
<th>型号</th>
<th>材质</th>
<th>功能</th>
<th>拉头</th>
<th>基本长度</th>
<th>基本价</th>
<th>加1cm</th>
<th>减1cm</th>
<th>备注</th>
</tr>
<tr>
<td>红彩翔</td>
<td>3</td>
<td>尼龙</td>
<td>闭口</td>
<td>普通</td>
<td>18</td>
<td>0.210</td>
<td>0.005</td>
<td>0.003</td>
<td> </td>
</tr>
<tr>
<td>红彩翔</td>
<td>5</td>
<td>尼龙</td>
<td>闭口</td>
<td>普通</td>
<td>18</td>
<td>0.350</td>
<td>0.006</td>
<td>0.005</td>
<td> </td>
</tr>
<tr>
<td>红彩翔</td>
<td>5</td>
<td>尼龙</td>
<td>防水</td>
<td>普通</td>
<td>18</td>
<td>0.770</td>
<td>0.020</td>
<td>0.020</td>
<td> </td>
</tr>
<tr>
<td>红彩翔</td>
<td>5</td>
<td>尼龙</td>
<td>开口</td>
<td>普通</td>
<td>60</td>
<td>0.770</td>
<td>0.006</td>
<td>0.005</td>
<td> </td>
</tr>
<tr>
<td>红彩翔</td>
<td>5</td>
<td>树脂</td>
<td>闭口</td>
<td>普通</td>
<td>18</td>
<td>0.460</td>
<td>0.010</td>
<td>0.010</td>
<td> </td>
</tr>
<tr>
<td>红彩翔</td>
<td>5</td>
<td>树脂</td>
<td>开口</td>
<td>普通</td>
<td>60</td>
<td>0.960</td>
<td>0.010</td>
<td>0.010</td>
<td> </td>
</tr>
<tr>
<td>红彩翔</td>
<td>8</td>
<td>树脂</td>
<td>闭口</td>
<td>普通</td>
<td>18</td>
<td>0.990</td>
<td>0.014</td>
<td>0.014</td>
<td> </td>
</tr>
<tr>
<td>红彩翔</td>
<td>8</td>
<td>树脂</td>
<td>开口</td>
<td>普通</td>
<td>60</td>
<td>1.800</td>
<td>0.020</td>
<td>0.020</td>
<td> </td>
</tr>

</table>
</body>
</html>

#13

吹水佬2022-02-05 06:20

回复 12楼 sam_jiang

看是只解释字符串 <.....> 用字符串函数就可以，杀鸡不用牛刀。

#14

吹水佬2022-02-05 08:24

以下是引用sam_jiang在2022-2-4 22:36:22的发言：

这个是打开一个浏览器

webbrowse是IE的WEB内核控件，解释HTML要WEB内核。
有些HTML内容是动态的，静态从HTML文件不一定能获取某些内容，要加载运行后才会有结果。

#15

sam_jiang2022-02-05 12:28

貌似里面有中文字符的原因。

ohttp=newobject("microsoft.xmlhttp")
ohttp.open("get","http://localhost/practice/zipper.html")
ohttp.send()
?ohttp.responsetext && 成功获得含中文html文本内容
oxml=newobject("microsoft.xmldom")
oxml.load(ohttp.responsetext)
?oxml.haschildnodes && 依然返回.f.

把上面的zipper.html 换成一个英文的页面myupload.html就可以返回.t.

ohttp.open("get","http://localhost/practice/myupload.html")
ohttp.send()
?ohttp.responsetext && 成功获得含html文本内容
oxml=newobject("microsoft.xmldom")
oxml.load(ohttp.responsetext)
?oxml.haschildnodes && 返回.t.
?oxml.nodename &&返回 #document
?oxml.documentElement.childNodes(0).nodeName && 返回body
?oxml.documentElement.childNodes(0).childnodes(0).nodeName && 返回form
?oxml.documentElement.childNodes(0).childnodes(0).childnodes(0).nodeName && 返回label
?oxml.documentElement.childNodes(0).childnodes(0).childnodes(1).nodeName && 返回input
?oxml.documentElement.childNodes(0).childnodes(0).childnodes(2).nodeName && 返回br
?oxml.documentElement.childNodes(0).childnodes(0).childnodes(3).nodeName && 返回input

以下是myupload.html的内容，返回结果如预期。
<!DOCTYPE html>
<html lang=“zh-CN”>
<body>

<form action="upload_file.php" method="post"
enctype=" multipart/form-data">
<label for="file">Filename:</label>
<input type="file" name="file" id="file" />
<br />
<input type="submit" name="submit" value="Submit" />
</form>

</body>
</html>

这个中文字符问题该怎么解决呢？？？

[此贴子已经被作者于2022-2-5 12:39编辑过]