当前位置： 文江博客话题详情

如何在.net中将数字格式化为S9(5)V99 ascii

发布于 2024-09-10 05:34:47 字数 59 浏览 7 评论 0原文

我一直在寻找 s9(5)v99 但得到了不同的信息，而且不太清楚。有人可以展示如何转换或转换公式吗？谢谢

原文

I've been searching for s9(5)v99 but got different information and not really clear. Could someone shows how or the formula to convert. thanks

如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论， 你可以免费 注册 一个本站的账号。

评论（4）

呆头 2024-09-17 05:34:47

您在这里向我们展示的是
COBOL 数据声明的 PICTURE 子句部分。

COBOL 数据声明有点奇怪，需要一些时间来适应。这是一个介绍性的链接
关于COBOL 数据声明的教程。
这应该可以帮助您开始。

您在问题中给出的 PICture 子句正在使用以下内容定义一个数字项
特征：

  • S - 前导符号
  • 9(5) - 5 个小数位
  • V - 隐含小数点
  • 99 - 2隐含小数点后的数字

基本上，您是在告诉 COBOL 编译器定义一个能够保存
值 -99999.99 到 +99999.99。编译器将如何实现这一点
请求取决于特定的 USAGE 子句。但是，对于包含
固定小数位，“正常”用法是 PACKED-DECIMAL 或 COMP-3 （这些只是
不同的名称表示相同的意思）。此链接
提供一些有关打包十进制数据的存储表示的介绍性信息。

压缩十进制数据对于进行小数点位数必须进行的数值计算非常有用
保持固定。

将压缩十进制数据写入报表或终端效果不是特别好。你必须
首先将其转换为可显示的格式。这涉及将压缩的十进制值MOVE移动到另一个
具有 USAGE DISPLAY 属性的变量。假设你的压缩十进制变量被称为
PACKED-DECIMAL-NBR 并保存值 -2345.01。您可以定义一个显示变量
将其保存为：

01    DISPLAY-NBR     PIC +++,++9.99.

那么当需要写入/显示 PACKED-DECIMAL-NBR 中包含的值时，您会
执行以下操作：

MOVE PACKED-DECIMAL-NBR TO DISPLAY-NBR
DISPLAY DISPLAY-NBR

MOVE 将压缩十进制数转换为字符表示形式，您可以
显示在报告或终端上。显示值-2,345.01。

What you have shown us here is
the PICTURE clause portion of a COBOL data declaration.

COBOL data declarations are a bit odd and take some getting used to. Here is a link to an introductory
tutorial on COBOL data declarations.
This should get you started.

The PICture clause you have given in your question is defining a numeric item with the following
characteristics:

  • S - Leading sign
  • 9(5) - 5 decimal digits
  • V - Implied decimal point
  • 99 - 2 digits after the implied decimal point

Basically, you are telling the COBOL compiler to define a numeric variable capable of holding
the values -99999.99 through +99999.99. Exactly how the compiler will fulfill this
request depends on the specific USAGE clause. However, for numeric items containing a
fixed decimal position, the 'normal' USAGE is PACKED-DECIMAL or COMP-3 (these are just
different names meaning the same thing). This link
provides some introductory information concerning the storage representation of packed decimal data.

Packed decimal data are useful for doing numeric computations where the number of decimal points must
remain fixed.

Writing packed decimal data to a report or terminal does not work particularly well. You must
first convert it to a DISPLAYable format. This involves MOVEing the packed decimal value to another
variable with a USAGE DISPLAY attribute. Suppose your packed decimal variable was called
PACKED-DECIMAL-NBR and was holding the value -2345.01. You could define a display variable
to hold it as:

01    DISPLAY-NBR     PIC +++,++9.99.

then when it comes time to write/display the value contained in PACKED-DECIMAL-NBR you would
do something like:

MOVE PACKED-DECIMAL-NBR TO DISPLAY-NBR
DISPLAY DISPLAY-NBR

The MOVE converts the packed-decimal number to a character representation which you can
display in reports or on the terminal. The value -2,345.01 is displayed.

回复 原文
甜妞爱困 2024-09-17 05:34:47

cobol中的S是有符号数字字段的定义（即可以是正数或负数）。
例如，S999 是一个有符号的 3 位数字（二进制​​）。问题是假设 S ，并且在大多数 cobol 编译器中，标记符号的方式是用另一个字符“过度打孔”最后一个字符来表示加号或减号。结果，如果您在 ascii 浏览器中查看该字段，您将看到一个奇怪的字符。 IE。 MINUS 500 看起来像 50C 或 50}，具体取决于底层字符以及是否是过度打孔的 + 或 -。

S in cobol is the definition of a signed numeric field (ie can be positive or negative).
So for example S999 is a signed 3 digit numeric (binary). Problem is S is assumed, and in most cobol compilers, the way the sign is marked is by "overpunching" the last character with another character to signify plus or minus. This results, if you look at the field in an ascii browser, you will have a strange character. Ie. MINUS 500 would look something like this 50C or 50} depending on the underlying character and if it were a + or - that had overpunched.

回复 原文
魄砕の薆 2024-09-17 05:34:47

PIC S9(5)v99 不是数字格式。它描述了数据的存储方式及其含义。例如，存储为“-0010000”的数字表示-100.00。

您究竟想实现什么目标？您是否正在尝试将十进制 -100.00 发送到COBOL 程序？

PIC -99,999.00 是数字格式。它指定如果数字为负数，则使用前导减号，使用小数点前五位数字，在千位之间使用逗号，小数点，然后正好两位数。存储在 PIC S9(5)V99 字段中的数字可以合理地移动到 PIC -99,999.00 字段。

PIC S9(5)v99 isn't a number format. It's a description of how the data are stored and what it means there. For instance, a number stored as "-0010000" means -100.00.

What exactly are you trying to accomplish? Are you trying to send a decimal -100.00 to a COBOL program?

PIC -99,999.00 is a number format. It specifies to use a leading minus sign if the number is negative, to use five digits before the decimal place, with a comma between the thousands, a decimal point, then exactly two digits after. A number stored in a PIC S9(5)V99 field might reasonably be moved to a PIC -99,999.00 field.

回复 原文
想你只要分分秒秒 2024-09-17 05:34:47

公共函数 CobolToDec(ByVal str As String) 作为双

' **********************************************************************
' * Purpose:    Converts Cobol numbers into dubble-values in MS format.
' * Author:     Mikael Bergstrom
' * Date:       2017-11-06
' * Input:      str = Cobolcoded value for amount S9(13)V99(Cobol)
' *             Signs are in last byte
' **********************************************************************

Dim strNeg As String
strNeg = "pqrstuvwxy"


' If letter in strNeg then convert to number and negative sign
' p = 0, q = 1, r = 2 osv...

' Two last digits are decimals.
' Ex 00000000001200y = -120,09
' Ex 000000000015000 = 150,00

' Contains negative sign?
If InStr(1, str, "-", vbTextCompare) Then
    dectal = CDbl(Trim(str))
    CobolToDec = dectal
Else
' ...if not sign -> convert last digit to represetative digit and make hole number negative.
    lastbyte = LCase(Right(str, 1))
    If Not IsNumeric(lastbyte) Then
        If InStr(1, strNeg, lastbyte, vbTextCompare) > 0 Then
            dectal = "-" & Left(str, 13) & "," & Mid(str, 14, 1) & CStr(InStr(strNeg, lastbyte) - 1)
        Else
            ' not valid negative sign in strNeg (pqrstuvwxy)
            ' Set 0 ast last sign as we don?t know and make negative number
            dectal = "-" & Left(str, 13) & "," & Mid(str, 14, 1) & "0"
        End If
    Else
        ' positive number, just separate the two decimals
        dectal = Left(str, 13) & "," & Right(str, 2)
    End If

    ' Convert into double datatype and return result
    CobolToDec = CDbl(FormatNumber(dectal, 2, , , vbFalse))
End If

端函数

Public Function CobolToDec(ByVal str As String) As Double

' **********************************************************************
' * Purpose:    Converts Cobol numbers into dubble-values in MS format.
' * Author:     Mikael Bergstrom
' * Date:       2017-11-06
' * Input:      str = Cobolcoded value for amount S9(13)V99(Cobol)
' *             Signs are in last byte
' **********************************************************************

Dim strNeg As String
strNeg = "pqrstuvwxy"


' If letter in strNeg then convert to number and negative sign
' p = 0, q = 1, r = 2 osv...

' Two last digits are decimals.
' Ex 00000000001200y = -120,09
' Ex 000000000015000 = 150,00

' Contains negative sign?
If InStr(1, str, "-", vbTextCompare) Then
    dectal = CDbl(Trim(str))
    CobolToDec = dectal
Else
' ...if not sign -> convert last digit to represetative digit and make hole number negative.
    lastbyte = LCase(Right(str, 1))
    If Not IsNumeric(lastbyte) Then
        If InStr(1, strNeg, lastbyte, vbTextCompare) > 0 Then
            dectal = "-" & Left(str, 13) & "," & Mid(str, 14, 1) & CStr(InStr(strNeg, lastbyte) - 1)
        Else
            ' not valid negative sign in strNeg (pqrstuvwxy)
            ' Set 0 ast last sign as we don?t know and make negative number
            dectal = "-" & Left(str, 13) & "," & Mid(str, 14, 1) & "0"
        End If
    Else
        ' positive number, just separate the two decimals
        dectal = Left(str, 13) & "," & Right(str, 2)
    End If

    ' Convert into double datatype and return result
    CobolToDec = CDbl(FormatNumber(dectal, 2, , , vbFalse))
End If

End Function

回复 原文
~没有更多了~

关于作者

木落

暂无简介

0 文章
0 评论
23 人气
发私信

相关话题

更多

热门标签

操作系统 程序设计 IT运维 Linux系统管理 JavaScript 服务器应用 solaris C/C++ PHP Shell BSD Vue.js aix Oracle Python HTML 系统管理 HTML5 CSS 前端
更多

推荐作者

留蓝

文章 0 评论 0

18790681156

文章 0 评论 0

zach7772

文章 0 评论 0

Wini

文章 0 评论 0

ayeshaaroy

文章 0 评论 0

初雪

文章 0 评论 0

更多

友情链接

文江博客
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站，即表示您同意使用 Cookies 和您的相关数据。
    原文