⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 如何从二进制文件读取 ibm 370 数据.htm

📁 IBM浮点的转化问题,转化为IEEE格式
💻 HTM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
'
  Exponent = ((B(0) And &H7F) - 64) * 4 - 1
'
' Normalize the mantissa.
'
  Do While (B(1) And &H80) = 0 And I < 4  ' 4 since 4 bits per hex digit
    ShiftLeft B
    I = I + 1
    Exponent = Exponent - 1
  Loop
'
' Zero check.
'
  If I = 4 Then
    B(0) = 0      ' rest of bytes are 0 so output -> 0.0
'
' Put sign and exponent back in 4-byte number.
'
  ElseIf UBound(B) = 3 Then
    Exponent = Exponent + 127     ' Excess 127 offset
    If (Exponent And 1) = 1 Then  ' low bit goes into B(1)
      B(1) = B(1) Or &H80
    Else
      B(1) = B(1) And &H7F
    End If
    B(0) = Sign Or ((Exponent \ 2) And &H7F)
  Else
'
' Put sign and mantissa back in 8-byte number.
'
    ShiftRight B                  ' make room for longer exponent
    ShiftRight B
    ShiftRight B
    Exponent = Exponent + 1023    ' Excess 1023 format
    Temp = Exponent And &HF       ' Low 4 bits go into B(1)
    B(1) = (B(1) And &HF) Or Temp * 16
    B(0) = Sign Or ((Exponent \ 16) And &H7F)
  End If
End Sub
				</PRE></CODE>
            <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></DIV>
            <DIV class=appliesTo>
            <HR>
            <A id=appliesto></A>
            <H5>这篇文章中的信息适用于:</H5>
            <TABLE class=list>
              <TBODY>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 4.0 Standard 
              Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 4.0 Professional 
                Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 4.0 Professional 
                Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 4.0 16-bit Enterprise 
                  Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 4.0 32-Bit Enterprise 
                  Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 5.0 Learning 
              Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 6.0 Learning 
              Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 5.0 Professional 
                Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 6.0 Professional 
                Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 5.0 Enterprise 
              Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic 6.0 Enterprise 
              Edition</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic for Applications 
              5.0</TD></TR>
              <TR>
                <TD class=bullet>•</TD>
                <TD class=text>Microsoft Visual Basic for Applications 
              6.0</TD></TR></TBODY></TABLE></DIV>
            <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 class=keywords>
            <TABLE>
              <TBODY>
              <TR>
                <TD class=header>
                  <H5>关键字：&nbsp;</H5></TD>
                <TD class=text>kbhowto kbdatabase KB235856 KbMtzh 
              kbmt</TD></TR></TBODY></TABLE>
            <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>
            <DIV 
            class="disclaimer text">Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 
            所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、</DIV><!-- - -KB 3 end- - --></DIV></DIV><SPAN 
            class=bookmark><A id=survey name=survey>&nbsp;</A></SPAN>
            <DIV class=wp id=fmsSurvey>
            <DIV class=fms>
            <SCRIPT type=text/javascript>var g_asAnswers = [];var g_iAnswerPtr = 0;var currentsectionid = 1;var navindex = 1;var currentsection;var navpath = new Array();var g_SCID = 'sw;zh-sim;1361';var g_SITE = 'gn';var g_REGIONID = 'zh-cn';var g_URL = '%252fdefault.aspx%252fkb%252f235856%252fzh-cn';var g_BROWSERLANGCODE = 'zh-cn';var g_SURVEYLANGCODE = 'zh-sim';var g_SURVEYID = '1361';var g_SURVEYNAME = '';var g_asParams = ['kb','zh-cn','235856','','','','','','machine',''];var g_showall = 0;var g_surveystyle = 'popup';var bClickCancel = 0;var g_maxKBsInCookie = '10';var g_kbvisited = '';</SCRIPT>
            <IFRAME id=submitframe style="DISPLAY: none" 
            src="如何从二进制文件读取 IBM 370 数据.files/surveysubmit.htm"></IFRAME>
            <DIV class=DOCUMENT>
            <FORM name=frmSurveyMain action=/common/survey.aspx method=post 
            width="100%"><INPUT id=FMSACTION type=hidden value=PERSIST 
            name=FMSACTION><INPUT id=emailaddress type=hidden 
            name=emailaddress><INPUT id=emailsurveyurl type=hidden 
            name=emailsurveyurl><INPUT id=sessionid type=hidden 
            name=sessionid><INPUT id=SURVEYSCID type=hidden 
            name=SURVEYSCID><INPUT id=SURVEYID type=hidden name=SURVEYID><INPUT 
            id=REGIONID type=hidden name=REGIONID><INPUT id=SURVEYNAME 
            type=hidden name=SURVEYNAME><INPUT id=SURVEYLANGCODE type=hidden 
            name=SURVEYLANGCODE><INPUT id=BROWSERLANGCODE type=hidden 
            name=BROWSERLANGCODE><INPUT id=SITE type=hidden name=SITE><INPUT 
            id=FMSURL type=hidden name=FMSURL><INPUT id=PARAMS type=hidden 
            name=PARAMS><INPUT id=PARAMLENGTH type=hidden 
            name=PARAMLENGTH><INPUT id=SURVEYANSWERS type=hidden 
            name=SURVEYANSWERS><INPUT id=DATALENGTH type=hidden 
            name=DATALENGTH><INPUT id=DIRECTION type=hidden value=LTR 
            name=DIRECTION><INPUT id=CHROMEDIRECTION type=hidden value=LTR 
            name=CHROMEDIRECTION><INPUT id=PREVIEWLOCATION type=hidden 
            name=PREVIEWLOCATION>
            <DIV id=DIV_FIRST style="DISPLAY: none">
            <TABLE class=QUESTIONCONTAINER cellSpacing=0 cellPadding=0>
              <TBODY>
              <TR>
                <TD>
                  <DIV class=QUESTIONTEXT>
                  <H5>请就此篇文章提供反馈</H5></DIV></TD></TR>
              <TR>
                <TD>
                  <DIV class=QUESTIONINSTRUCTION></DIV></TD></TR></TBODY></TABLE>
            <DIV class=QUESTIONCONTAINER>
            <DIV class=QUESTIONTEXT>这篇文章有助您解决问题吗？</DIV>
            <DIV class=QUESTIONINSTRUCTION></DIV>
            <TABLE cellSpacing=0 cellPadding=0 border=0>
              <TBODY>
              <TR>
                <TD class=ANSWERTEXT vAlign=top><INPUT id=8167 
                  onclick=handleOptionalTxt(this); type=radio value=0 
                  name=s1q7831>是</TD></TR>
              <TR>
                <TD class=ANSWERTEXT vAlign=top><INPUT id=13111 
                  onclick=handleOptionalTxt(this); type=radio value=0 
                  name=s1q7831>否</TD></TR>
              <TR>
                <TD class=ANSWERTEXT vAlign=top><INPUT id=12862 
                  onclick=handleOptionalTxt(this); type=radio value=0 
                  name=s1q7831>解决了一部分</TD></TR>
              <TR>
                <TD class=ANSWERTEXT vAlign=top><INPUT id=13082 
                  onclick=handleOptionalTxt(this); type=radio value=0 
                  name=s1q7831>我不确定</TD></TR></TBODY></TABLE></DIV>
            <DIV class=QUESTIONCONTAINER>
            <DIV class=QUESTIONTEXT></DIV>
            <DIV class=QUESTIONINSTRUCTION></DIV>
            <TABLE cellSpacing=0 cellPadding=0 border=0>
              <TBODY>
              <TR class=GHR_LEGENDTEXT>
                <TD height=20></TD>
                <TD vAlign=top align=left colSpan=9 height=20>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%">
                    <TBODY>
                    <TR class=GHR_LEGENDTEXT>
                      <TD width="10%">非常同意</TD>
                      <TD width="10%"></TD>
                      <TD width="10%"></TD>
                      <TD width="10%"></TD>
                      <TD width="10%"></TD>
                      <TD width="10%"></TD>
                      <TD width="10%"></TD>
                      <TD width="10%"></TD>
                      <TD width="10%">强烈反对</TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD class=GHR_LEGENDTEXT width="25%"></TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">9</TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">8</TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">7</TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">6</TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">5</TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">4</TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">3</TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">2</TD>
                <TD class=GHR_LEGENDTEXT align=middle width="8%">1</TD></TR>
              <TR class=GHR_ODDROW>
                <TD vAlign=center>
                  <DIV class=GHR_QUESTIONTEXT>这篇文章容易理解</DIV></TD>
                <TD align=middle><INPUT id=13129 type=radio value=9 
                  name=s1q7708_13129></TD>
                <TD align=middle><INPUT id=13129 type=radio value=8 
                  name=s1q7708_13129></TD>
                <TD align=middle><INPUT id=13129 type=radio value=7 
                  name=s1q7708_13129></TD>
                <TD align=middle><INPUT id=13129 type=radio value=6 
                  name=s1q7708_13129></TD>
                <TD align=middle><INPUT id=13129 type=radio value=5 
                  name=s1q7708_13129></TD>
                <TD align=middle><INPUT id=13129 type=radio value=4 
                  name=s1q7708_13129></TD>
                <TD align=middle><INPUT id=13129 type=radio value=3 
                  name=s1q7708_13129></TD>
                <TD align=middle><INPUT id=13129 type=radio value=2 
                  name=s1q7708_13129></TD>
                <TD align=middle><INPUT id=13129 type=radio value=1 
                  name=s1q7708_13129></TD></TR>
              <TR class=GHR_EVENROW>
                <TD vAlign=center>
                  <DIV class=GHR_QUESTIONTEXT>文章内容准确</DIV></TD>
                <TD align=middle><INPUT id=13130 type=radio value=9 
                  name=s1q7708_13130></TD>
                <TD align=middle><INPUT id=13130 type=radio value=8 
                  name=s1q7708_13130></TD>
                <TD align=middle><INPUT id=13130 type=radio value=7 
                  name=s1q7708_13130></TD>
                <TD align=middle><INPUT id=13130 type=radio value=6 
                  name=s1q7708_13130></TD>
                <TD align=middle><INPUT id=13130 type=radio value=5 
                  name=s1q7708_13130></TD>
                <TD align=middle><INPUT id=13130 type=radio value=4 
                  name=s1q7708_13130></TD>
                <TD align=middle><INPUT id=13130 type=radio value=3 
                  name=s1q7708_13130></TD>
                <TD align=middle><INPUT id=13130 type=radio value=2 
                  name=s1q7708_13130></TD>
                <TD align=middle><INPUT id=13130 type=radio value=1 
                  name=s1q7708_13130></TD></TR></TBODY></TABLE></DIV>
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -