adf文件怎么转换_教程

ADF文拦州件是一种可以在多种 *** 作系统上运行的文件格式，它可以在Windows、Mac OS、Linux等 *** 作系缓纯统上使用。要将ADF文件转换为其他格式，您可以使用文件转换软件。这些软件可以将ADF文件转换为其他格式，如PDF、DOC、TXT等。您可以在简哪蔽网上搜索并下载这些文件转换软件，然后安装并运行它们，按照软件提示的步骤将ADF文件转换为其他格式。

打开adf格式的文件的具体步骤如下：

需要准备的材料分别是：电脑、ArcMap 10.4软件。

1、首先确保服务中昌锋ArcGIS License Manager服务是开启的。

2、从桌面上打开ArcMap 10.4。

3、在主界面中右侧ArcCatalog中，右键Folder Connection选择“Connect to folder...”。

4、数迅姿选择电脑上已经下载的adf格式的文件目录地址。

5、在主界面左侧Layer上右键，选择“薯绝Add Data...”添加需要打开的adf格式的文件即可。

我是这燃老样实现的:按照XLS的格式,利用FSO在服务器上生成一个XLS文件,再进行下载

我贴一个实例吧,你自己看,修改几个变量,

----------------------------------导出EXCEL的文件-----

response.Buffer=false

call checkadmin()

dim sql,filename,rs1,c,tablename

if request("class")<>"0" then

filename="../temp/名单"&request("class")&"班.xls" ' 要输出的EXCEL文件的文件名, 你只要改以上两句就行了,其它的都不要改.

tablename=request("class")&"班名单"

else

filename="../temp/全年段名单.xls"

tablename="全年段名单"

end if

<html>

<head>

<title>导出名单到EXCEL</title>

</head>

<BODY>

</tr>

<tr>

<td height="80" align="center"><p>正在生成导出的EXCEL文件,请稍候...<br>

[<a href="javascript:window.close()">关闭窗口</a>]<br>

</p>

</td>

</tr>

</table></div>

sql="select "

for each c in request("fileds")

select case c

case "class"

sql=sql&"class as 班级,"

case "num"

sql=sql&"num as 座号,"

case "name"

sql=sql&"name as 姓名,"

case "tel"

sql=sql&"tel as 电话,"

case "address"

sql=sql&"address as 地址,"

case "ptel"

sql=sql&"ptel as 家长手机,"

case "memo"

sql=sql&"memo as 备注,"

case "birthday"

sql=sql&"birthday as 生日,"

case "idcardnum"

sql=sql&"idcardnum as 学号让慎,"

end select

sql=left(sql,len(sql)-1)

sql=sql&" from student"

if request("class")<>"0" then sql=sql&" where class="&request("class")

sql=sql&" order by class,num" '这里是要输出EXCEL的SQL

'response.write sql

'response.end

function ReadText(FileName) '这是一个用于读出文件皮滑升的函数

dim adf,ads

set adf=server.CreateObject("Adodb.Stream")

with adf

.Type=2

.LineSeparator=10

.Open

.LoadFromFile (server.MapPath(FileName))

.Charset="GB2312"

.Position=2

ReadText=.ReadText

.Cancel()

.Close()

end with

set ads=nothing

end function

sub SaveText(FileName,Data) '这是一个用于写文件的函数

dim fs,ts

set fs= createobject("scripting.filesystemobject")

set ts=fs.createtextfile(server.MapPath(FileName),true)

ts.writeline(data)

ts.close

set ts=nothing

set fs=nothing

end sub

sub toexcel(filename,sql) '这是一个根据SQL语句和FILENAME生成EXCEL文件

dim rs,toexcellr,myfield,i,datename,tou,di

Set rs=Server.CreateObject("ADODB.RecordSet")

rs.Open sql,conn,1,3

set myfield=rs.fields

dim fieldname(50)

TOEXCELLR="<table width='100%'><tr><td colspan="&myfield.count&"><p align='center'>"&tablename&"</p></td></tr><tr>"

for i=0 to myfield.count-1

toexcellr=toexcellr&"<td class=xl24><p align='center'>"&MYFIELD(I).NAME&"</p></td>"

fieldname(i)=myfield(i).name

if myfield(i).type=135 then datename=datename&myfield(i).name&","

toexcellr=toexcellr&"</tr>"

do while not rs.eof

toexcellr=toexcellr&"<tr height=20>"

for i=0 to myfield.count-1

if instr(datename,fieldname(i)&",")<>0 then

if not isnull(rs(fieldname(i))) then

TOEXCELLR=TOEXCELLR&"<td class=xl25><p align='center'>"&formatdatetime(rs(fieldname(i)),2)&"</p></td>"

else

TOEXCELLR=TOEXCELLR&"<td class=xl25><p align='center'></p></td>"

end if

else

TOEXCELLR=TOEXCELLR&"<td class=xl24><p align='center'>"&rs(fieldname(i))&"</p></td>"

end if

toexcellr=toexcellr&"</tr>"

rs.movenext

loop

toexcellr=toexcellr&"</table>"

tou=readtext("../include/xls_head.txt")

di=readtext("../include/xls_foot.txt")

toexcellr=tou&toexcellr&di

call savetext(filename,toexcellr)

end sub

call toexcel(FILENAME,sql)

conn.close

set conn=nothing

</BODY>

</HTML>

----------------------XLS的头文件,存为xls_head.txt,放在include的相应路径

<html xmlns:o="urn:schemas-microsoft-com:office:office"

xmlns:x="urn:schemas-microsoft-com:office:excel"

xmlns="http://www.w3.org/TR/REC-html40">

<head>

<!--[if gte mso 9]><xml>

</DocumentProperties>

</OfficeDocumentSettings>

</xml><![endif]-->

<style>

<!--table

{mso-displayed-decimal-separator:"\."

mso-displayed-thousand-separator:"\,"}

@page

{margin:1.0in .75in 1.0in .75in

mso-header-margin:.5in

mso-footer-margin:.5in}

{mso-height-source:auto

mso-ruby-visibility:none}

col

{mso-width-source:auto

mso-ruby-visibility:none}

{mso-data-placement:same-cell}

.style0

{mso-number-format:General

text-align:general

vertical-align:bottom

white-space:nowrap

mso-rotate:0

mso-background-source:auto

mso-pattern:auto

color:windowtext

font-size:9.0pt

font-weight:400

font-style:normal

text-decoration:none

font-family:宋体

mso-generic-font-family:auto

mso-font-charset:134

border:none

mso-protection:locked visible

mso-style-name:常规

mso-style-id:0}

{mso-style-parent:style0

padding-top:1px

padding-right:1px

padding-left:1px

mso-ignore:padding

color:windowtext

font-size:10.0pt

font-weight:400

font-style:normal

text-decoration:none

font-family:宋体

mso-generic-font-family:auto

mso-font-charset:134

mso-number-format:General

text-align:general

vertical-align:bottom

border:none

mso-background-source:auto

mso-pattern:auto

mso-protection:locked visible

white-space:nowrap

mso-rotate:0}

.xl24

{mso-style-parent:style0

border:.5pt solid windowtext}

.xl25

{mso-style-parent:style0

mso-number-format:"Long Date"

text-align:left

border:.5pt solid windowtext}

ruby

{ruby-align:left}

{color:windowtext

font-size:9.0pt

font-weight:400

font-style:normal

text-decoration:none

font-family:宋体

mso-generic-font-family:auto

mso-font-charset:134

mso-char-type:none

display:none}

-->

</style>

<!--[if gte mso 9]><xml>

<x:ExcelWorkbook>

<x:ExcelWorksheets>

<x:ExcelWorksheet>

<x:Name>Sheet1</x:Name>

<x:WorksheetOptions>

<x:DefaultRowHeight>225</x:DefaultRowHeight>

<x:print>

<x:ValidPrinterInfo/>

<x:paperSizeIndex>9</x:paperSizeIndex>

<x:HorizontalResolution>-3</x:HorizontalResolution>

<x:VerticalResolution>0</x:VerticalResolution>

</x:print>

<x:Selected/>

<x:panes>

<x:pane>

<x:Number>3</x:Number>

<x:ActiveRow>24</x:ActiveRow>

<x:ActiveCol>5</x:ActiveCol>

</x:pane>

</x:panes>

<x:protectContents>False</x:protectContents>

<x:protectObjects>False</x:protectObjects>

<x:protectScenarios>False</x:protectScenarios>

</x:WorksheetOptions>

</x:ExcelWorksheet>

<x:ExcelWorksheet>

<x:Name>Sheet2</x:Name>

<x:WorksheetOptions>

<x:DefaultRowHeight>225</x:DefaultRowHeight>

<x:protectContents>False</x:protectContents>

<x:protectObjects>False</x:protectObjects>

<x:protectScenarios>False</x:protectScenarios>

</x:WorksheetOptions>

</x:ExcelWorksheet>

<x:ExcelWorksheet>

<x:Name>Sheet3</x:Name>

<x:WorksheetOptions>

<x:DefaultRowHeight>225</x:DefaultRowHeight>

<x:protectContents>False</x:protectContents>

<x:protectObjects>False</x:protectObjects>

<x:protectScenarios>False</x:protectScenarios>

</x:WorksheetOptions>

</x:ExcelWorksheet>

</x:ExcelWorksheets>

<x:WindowHeight>6600</x:WindowHeight>

<x:WindowWidth>12000</x:WindowWidth>

<x:WindowTopX>0</x:WindowTopX>

<x:WindowTopY>1395</x:WindowTopY>

<x:protectStructure>False</x:protectStructure>

<x:protectWindows>False</x:protectWindows>

</x:ExcelWorkbook>

</xml><![endif]-->

</head>

-----------------------XLS尾文件,存为xls_foot.txt,放在include的相应路径

<table x:str border=0 cellpadding=0 cellspacing=0 width=288 style='border-collapse:

collapsetable-layout:fixedwidth:216pt'>

<![if supportMisalignedColumns]>

</tr>

<![endif]>

</table>

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/tougao/12164866.html

adf文件怎么转换

发表评论

评论列表（0条）