📄 如何从二进制文件读取 ibm 370 数据.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0044)http://support.microsoft.com/kb/235856/zh-cn -->
<HTML lang=zh-cn><HEAD><TITLE>如何从二进制文件读取 IBM 370 数据</TITLE>
<SCRIPT src="如何从二进制文件读取 IBM 370 数据.files/common.js"
type=text/javascript></SCRIPT>
<SCRIPT>setcookieval("gssSITE","gn");</SCRIPT>
<SCRIPT type=text/javascript>SaveToFavoritesData.savingMsg='\u6b63\u5728\u4fdd\u5b58\u6536\u85cf\u5939';SaveToFavoritesData.connectionErrorMsg='\u65e0\u6cd5\u8fde\u63a5';SaveToFavoritesData.savedMsg='\u6536\u85cf\u5df2\u4fdd\u5b58';SaveToFavoritesData.noSaveErrorMsg='\u65e0\u6cd5\u4fdd\u5b58';SaveToFavoritesData.surveyUrl='\x2fcommon\x2fsurvey.aspx\x3fscid\x3dsw\x3bzh-sim\x3b1167\x26surveystyle\x3dpopup\x26showpage\x3d1\x26site\x3dgn\x26siteregion\x3dzh-cn\x26url\x3d%2fdefault.aspx%2fkb%2f235856%2fzh-cn\x26p0\x3dkb\x26p1\x3dzh-cn\x26p2\x3d235856';SaveToFavoritesData.noCookieUrl='\x2fgp\x2fnocookies';</SCRIPT>
<SCRIPT>var g_currentContent='kb\x3bzh-cn\x3b235856';</SCRIPT>
<SCRIPT src="如何从二进制文件读取 IBM 370 数据.files/survey.js"
type=text/javascript></SCRIPT>
<META content=nofollow,noarchive name=robots>
<META
content="5573 2969 1105 5572 5569 5570 5576 2970 5583 2971 5577 5584 5575 5579 5590 2973 7755 5591 2974 "
name=KBParents>
<META
content="5573 2969 1105 5572 5569 5570 5576 2970 5583 2971 5577 5584 5575 5579 5590 2973 7755 5591 2974 "
name=Search.KBParents>
<META content="kbhowto kbdatabase KB235856 KbMtzh kbmt" name=Keywords>
<META content="当使用 VBA Get 语句以二进制数据生成一个 IBM 370 上 （或兼容） 大型机读入结构, 数据自超出混乱。"
name=Description>
<META content=zh-cn name=MS.LOCALE>
<META http-equiv=content-type content="text/html; charset=utf-8">
<SCRIPT>var gCookieDomain='';</SCRIPT>
<XMLREADER><LINK href="如何从二进制文件读取 IBM 370 数据.files/default.css" type=text/css
rel=stylesheet><LINK href="如何从二进制文件读取 IBM 370 数据.files/xmlContent.css"
type=text/css rel=stylesheet><LINK
href="如何从二进制文件读取 IBM 370 数据.files/dbcsOverride.css" type=text/css
rel=stylesheet><LINK href="如何从二进制文件读取 IBM 370 数据.files/dbcsRightNav.css"
type=text/css rel=stylesheet><LINK
href="如何从二进制文件读取 IBM 370 数据.files/override.css" type=text/css
rel=stylesheet></XMLREADER><!-- RESG: 4/19/2007 3:04:00 AM -- RESX: 1/1/0001 12:00:00 AM --><!-- (c) 2007 Microsoft Corporation. All Rights Reserved --><LINK
href="如何从二进制文件读取 IBM 370 数据.files/d66c13bbS.css" type=text/css
rel=Stylesheet><LINK href="如何从二进制文件读取 IBM 370 数据.files/e32dcee8S.css"
type=text/css rel=stylesheet>
<SCRIPT language=JavaScript>var doImage=doImage;var TType=TType;function mhHover(tbl,idx,cls){var t,d;if(document.getElementById)t=document.getElementById(tbl);else t=document.all(tbl);if(t==null)return;if(t.getElementsByTagName)d=t.getElementsByTagName("TD");else d=t.all.tags("TD");if(d==null)return;if(d.length<=idx)return;d[idx].className=cls;}function footerjs(doc){if(doImage==null){var tt=TType==null?"PV":TType;doc.write('<layer visibility="hide"><div style="display:none"><img src="http://c.microsoft.com/trans_pixel.asp?source=localhost&TYPE=' + tt + '&p=MNPGenerator&URI=%2fMNPGenerator%2fdefault.aspx%3fr%3dgn%2fzh-cn_NLN.xml&GUID=1F4FC18C-F71E-47FB-8FC9-612F8EE59C61&lc=zh-cn" width=0 height=0 hspace=0 vspace=0 border=0 alt=""/></div></layer>');}}msvi_qllc = "zh-cn";msvi_qldir = "LTR";msvi_qlhost = "http://localhost";</SCRIPT>
<LINK href="如何从二进制文件读取 IBM 370 数据.files/ql.css" type=text/css rel=stylesheet>
<SCRIPT src="如何从二进制文件读取 IBM 370 数据.files/ql.js" type=text/javascript></SCRIPT>
<META content=gn name=DCSext.sup_sd>
<META content=zh-cn name=DCSext.sup_ln>
<META content=kb name=DCSext.sup_ct>
<META content=zh-cn name=DCSext.sup_cln>
<META content=235856 name=DCSext.sup_cid>
<META content=nonconsumer name=DCSext.sup_split>
<SCRIPT type=text/javascript>var PersonalizationInfo='a2IyMzU4NTYIemgtY24I5aaC5L2V5LuO5LqM6L-b5Yi25paH5Lu26K-75Y-WIElCTSAzNzAg5pWw5o2u';</SCRIPT>
<SCRIPT type=text/javascript>var enableSiteSurvey = true;</SCRIPT>
<SCRIPT src="如何从二进制文件读取 IBM 370 数据.files/surveytrigger.js"
type=text/javascript></SCRIPT>
<SCRIPT>animationDuration = 0.5;</SCRIPT>
<SCRIPT>var embedSurveyPrompt='nothing';var Exp=90;var Delay=10000;var Freq=30;var CookieDef='ST_GN_ZH-CN';var SurveyStyle='popup';var DisplayIntroPage=1;var EmailStyle=0;var EmailSurveyID='';var ReferringURL='';</SCRIPT>
<LINK title=微软支持搜索 href="/common/opensearchdescriptor.aspx?ln=zh-cn"
type=application/opensearchdescription+xml rel=search>
<META content="MSHTML 6.00.2900.3059" name=GENERATOR></HEAD>
<BODY onload=thisLoad(); onunload=thisUnload();><A name=top></A><!--NOINDEX_START-->
<SCRIPT type=text/javascript>if (self.name == "MNPMainFrame") top.location.href = self.location.href;</SCRIPT>
<DIV id=msviMasthead>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="100%">
<TABLE height=22 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD id=msviRegionIdGraphic bgColor=#4b92d9><A
href="http://support.microsoft.com/common/international.aspx"><IMG
title="选择 国家/地区" height=22 alt=China
src="如何从二进制文件读取 IBM 370 数据.files/f822068bS.jpg" border=0></A></TD>
<TD id=msviRegionGradient1
style="FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#4B92D9', endColorStr='#CEDFF6', gradientType='1')"
width="50%"></TD>
<TD id=msviRegionGradient2
style="FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#CEDFF6', endColorStr='#1E77D3', gradientType='1')"
width="50%"></TD></TR></TBODY></TABLE></TD>
<TD id=msviGlobalToolbar dir=ltr noWrap align=left bgColor=#1e77d3
height=22>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD class=gt0 id=panelTd noWrap><A
href="http://www.microsoft.com/library/toolbar/3.0/sitemap/zh-cn.mspx">快速链接 </A>
<SCRIPT type=text/javascript>document.write('<img src="/library/mnp/2/gif/ql.gif" width="11px" height="4px" alt="">');</SCRIPT>
<DIV id=panelDiv
style="Z-INDEX: 100; VISIBILITY: hidden; POSITION: absolute"></DIV></TD>
<TD class=gtsep>|</TD>
<TD class=gt0 onmouseover="this.className='gt1'"
onmouseout="this.className='gt0'" noWrap><A
href="http://www.microsoft.com/china/">微软中文主页</A></TD>
<TD class=gtsep>|</TD>
<TD class=gt0 onmouseover="this.className='gt1'"
onmouseout="this.className='gt0'" noWrap><A
href="http://www.microsoft.com/worldwide/">全球站点</A></TD>
<TD class=msviPPSpace></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=top>
<TD width="100%">
<TABLE height=42 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=top>
<TD id=msviBrandBanner bgColor=#0a6cce><A
href="http://www.microsoft.com/china/"><IMG title="" height=42
alt=Microsoft src="如何从二进制文件读取 IBM 370 数据.files/ms_masthead_ltr.gif"
width=136 border=0></A></TD>
<TD
style="FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#0A6CCE', endColorStr='#FFFFFF', gradientType='1')"
width="100%"></TD></TR></TBODY></TABLE></TD>
<TD id=msviGlobalSearch bgColor=#ffffff>在 Microsoft.com 中搜索：<BR>
<FORM id=msviSearchForm action=/library/toolbar/3.0/search.aspx
target=_top><INPUT type=hidden value=zh-cn name=View><INPUT type=hidden
value=UTF-8 name=charset><NOBR>
<DIV style="HEIGHT: 18px"><INPUT id=msviSearchBox maxLength=255 name=qu><INPUT id=msviGoButton type=submit value=Go></DIV></NOBR></FORM></TD></TR></TBODY></TABLE>
<TABLE id=msviSubbanner cellSpacing=0 cellPadding=0 width="100%" bgColor=#003399
border=0>
<TBODY>
<TR>
<TD><IMG title="" height=26 alt=客户帮助和支持主页
src="如何从二进制文件读取 IBM 370 数据.files/45ac430dS.jpg" width=467 border=0></TD>
<TD width="100%"> </TD></TR></TBODY></TABLE>
<DIV id=msviLocalToolbar>
<TABLE height=19 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD id=msviHomePageLink noWrap><A
href="http://support.microsoft.com/">客户帮助和支持主页</A></TD>
<TD><SPAN class=ltsep>|</SPAN></TD>
<TD class=lt0 onmouseover="mhHover('msviLocalToolbar', 2, 'lt1')"
onmouseout="mhHover('msviLocalToolbar', 2, 'lt0')" noWrap><A
href="http://support.microsoft.com/select/?target=hub">选择产品中心</A></TD>
<TD><SPAN class=ltsep>|</SPAN></TD>
<TD class=lt0 onmouseover="mhHover('msviLocalToolbar', 4, 'lt1')"
onmouseout="mhHover('msviLocalToolbar', 4, 'lt0')" noWrap><A
href="http://support.microsoft.com/gp/assistsupport/zh-cn">获得微软技术支持</A></TD>
<TD><SPAN class=ltsep>|</SPAN></TD>
<TD class=lt0 onmouseover="mhHover('msviLocalToolbar', 6, 'lt1')"
onmouseout="mhHover('msviLocalToolbar', 6, 'lt0')" noWrap><A
href="http://support.microsoft.com/gp/DOWNLOADOVER">下载</A></TD>
<TD><SPAN class=ltsep>|</SPAN></TD>
<TD class=lt0 onmouseover="mhHover('msviLocalToolbar', 8, 'lt1')"
onmouseout="mhHover('msviLocalToolbar', 8, 'lt0')" noWrap><A
href="http://support.microsoft.com/gp/bbsindex/zh-cn">论坛(新闻组)</A></TD>
<TD><SPAN class=ltsep>|</SPAN></TD>
<TD class=lt0 onmouseover="mhHover('msviLocalToolbar', 10, 'lt1')"
onmouseout="mhHover('msviLocalToolbar', 10, 'lt0')" noWrap><A
href="http://support.microsoft.com/contactus/?ws=support">联系方法</A></TD>
<TD width="100%"></TD></TR></TBODY></TABLE></DIV></DIV>
<TABLE dir=ltr cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=top>
<TD dir=ltr width="100%"><!--NOINDEX_STOP--><XMLREADER>
<DIV id=contentArea>
<DIV id=mainRow>
<DIV class=primaryTable>
<TABLE class=primaryTable cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD class=primaryMainColumn>
<DIV id=mainColumn>
<DIV class=kb id=kb>
<DIV class=default id=default><!-- - -KB 3 start- - --><A
id=top></A>
<H1 class=title>如何从二进制文件读取 IBM 370 数据</H1>
<DIV class=appliesToLink><A
href="http://support.microsoft.com/kb/235856/zh-cn#appliesto">察看本文应用于的产品</A></DIV>
<SCRIPT>function loadTOCNode(){}</SCRIPT>
<DIV class="disclaimer mt">
<DIV class=label>注意：这篇文章是由无人工介入的自动的机器翻译系统翻译完成。这些文章是微软为不懂英语的用户提供的,
以使他们能够理解这些文章的内容。微软不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的使用所引起的任何直接的,
或间接的可能的问题负责。</DIV></DIV>
<DIV class=articleProperty>
<TABLE>
<TBODY>
<TR>
<TD>文章编号</TD>
<TD>:</TD>
<TD>235856</TD></TR>
<TR>
<TD>最后修改</TD>
<TD>:</TD>
<TD>2004年8月30日</TD></TR>
<TR>
<TD>修订</TD>
<TD>:</TD>
<TD>2.2</TD></TR></TBODY></TABLE></DIV>
<DIV class=toc id=tocDiv>
<H5>本页</H5></DIV>
<SCRIPT type=text/javascript> var sectionFilter = "type != 'notice' && type != 'securedata' && type != 'querywords'"; var tocArrow = "/library/images/support/kbgraphics/public/en-us/downarrow.gif"; var depthLimit = 10; var depth3Limit = 10; var depth4Limit = 5; var depth5Limit = 3; var tocEntryMinimum = 1; </SCRIPT>
<SCRIPT src="如何从二进制文件读取 IBM 370 数据.files/kbtoc.js"
type=text/javascript></SCRIPT>
<NOSCRIPT>
<STYLE>.toc {
DISPLAY: none
}
</STYLE>
</NOSCRIPT>
<DIV class=section>
<H2 class=subTitle id=tocHeadRef>概要</H2>
<SCRIPT type=text/javascript>loadTOCNode(1, 'summary');</SCRIPT>
<DIV class=sbody>当使用 VBA Get 语句以二进制数据生成一个 IBM 370 上 （或兼容） 大型机读入结构,
数据自超出混乱。 有三个问题：<BR>
<TABLE class="list ol">
<TBODY>
<TR>
<TD class=number>1.</TD>
<TD class=text>文字位于 EBCDIC 编码。<BR>2 个字节和 4 字节整数有他们字节反转的顺序。 4
个字节和 8 字节浮点数不仅有其字节反转, 但也有不同内部结构。 </TD></TR>
<TR>
<TD class=number>2.</TD>
<TD class=text>2 个字节和 4 字节整数有他们字节反转的顺序。 4 个字节和 8
字节浮点数不仅有其字节反转, 但也有不同内部结构。 </TD></TR>
<TR>
<TD class=number>3.</TD>
<TD class=text>4 个字节和 8 字节浮点数不仅有其字节反转, 但也有不同内部结构。
</TD></TR></TBODY></TABLE>本文介绍二和三个问题。 对于 EBCDIC 以 ASCII 文本转换, 请参见以下
MicrosoftKnowledgeBase 文章：
<DIV class=indent><A class=KBlink
href="http://support.microsoft.com/kb/216399/EN-US/">216399</A><SPAN
class=pLink> (http://support.microsoft.com/kb/216399/EN-US/)</SPAN>
如何转换之间和 EBCDIC ASCII 字符代码 </DIV>不讨论其他二进制或 BCD 数字格式。
<P class=topOfPage><A
href="http://support.microsoft.com/kb/235856/zh-cn#top"><IMG alt=""
src="如何从二进制文件读取 IBM 370 数据.files/uparrow.gif">回到顶端</A></P></DIV>
<H2 class=subTitle id=tocHeadRef>更多信息</H2>
<SCRIPT
type=text/javascript>loadTOCNode(1, 'moreinformation');</SCRIPT>
<DIV class=sbody>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -