感谢楼上分享, 我用ai改powershell, 几十轮都不行? 哎, ai还是不行啊- function Convert-RMB {
- param (
- [string]$input
- )
-
- # 检查输入是否为数字
- if (-not ($input -match '^[0-9]*$')) {
- Write-Host "非法输入！"
- return
- }
-
- $units = @('圆', '拾', '佰', '仟', '萬', '拾萬', '佰萬', '仟萬', '亿', '拾亿', '佰亿', '仟亿', '兆', '拾兆', '佰兆', '仟兆', '京', '拾京', '佰京', '仟京', '垓', '拾垓', '佰垓', '仟垓', '秭', '拾秭', '佰秭', '仟秭', '穰', '拾穰', '佰穰', '仟穰', '沟', '拾沟', '佰沟', '仟沟', '涧', '拾涧', '佰涧', '仟涧', '正', '拾正', '佰正', '仟正', '载', '拾载', '佰载', '仟载', '极')
- $digits = @('零', '壹', '贰', '叁', '肆', '伍', '陆', '柒', '捌', '玖')
-
- # 计算输入的长度
- $length = $input.Length
- $result = ""
-
- for ($i = 0; $i -lt $length; $i++) {
- $digit = [int]$input[$i]
- $position = $length - $i - 1
- $unit = if ($position -lt $units.Length) { $units[$position] } else { "" }
-
- if ($digit -ne 0) {
- $result += $digits[$digit] + $unit
- } elseif ($unit -match '圆|萬|亿|兆|京|垓|秭|穰|沟|涧|正|载|极') {
- $result += $unit
- } elseif ($result -ne "" -and $result[-1] -ne '零') {
- $result += '零'
- }
- }
-
- $result = $result -replace '零+', '零'
- $result = $result -replace '零$', ''
- $result = $result -replace '零圆$', '圆'
-
- return $result
- }
-
- # 测试
- $input = Read-Host "输入一个数字"
- $result = Convert-RMB -input $input
- Write-Host "输入：" $input
- Write-Host "输出：" $result
|
发表于 2025-1-10 23:33
| 
