求教！字符串"07"转换成07应该如何操作？

xiaocainiao

xyp1964 发表于 2024-10-4 22:40
都转成字符串比较：
("1998" "04" "03" "08" "10" "06" "52")
("2020" "05" "03" "08" "10" "06" "52")

谢谢！我现在就是这么搞的

hubeiwdlue

黄大师说的方法，先获得字符串字符个数，read后，获得新字符串个数，两个相减，差值为前面补0的个数。

Maxwell

你有种再说一遍 发表于 2024-10-5 01:40
没有任何地方需要,数值只有比较作用,显示是字符串

为了美观和统一，有时候编号确实需要前置0，比如信息点的编号D01,D02.....，您可能没有实践过！

你有种再说一遍

Maxwell 发表于 2024-10-5 20:24
为了美观和统一，有时候编号确实需要前置0，比如信息点的编号D01,D02.....，您可能没有实践过！

前置难道不是字符串?

xiaocainiao

hubeiwdlue 发表于 2024-10-5 20:13
黄大师说的方法，先获得字符串字符个数，read后，获得新字符串个数，两个相减，差值为前面补0的个数。

谢谢、现在就是这种方法搞的

baitang36

xiaocainiao 发表于 2024-10-4 20:18
主要我是需要用到这个0

那就直接用字符串，没必要转成整数。

xiaocainiao

baitang36 发表于 2024-10-8 09:11
那就直接用字符串，没必要转成整数。

谢谢！现在已经改用字符串了、不转了

自贡黄明儒

xiaocainiao 发表于 2024-10-8 09:20
谢谢！现在已经改用字符串了、不转了

我也写了文件时间比较，一直没写好。你怎么写的，让我们学习一下。

1. ;;TimeCompa,返回0 1，表示菜单文件是最新的，不需要更新
   
2.   ;;(setq MnuTime '(2017 7 25 8 48 8 0))
   
3.   ;;(setq fileTime '(2017 7 28 20 12 49 715))
   
4.   (defun TimeCompa (MnuTime fileTime / FLAG A B)
   
5.     (setq MnuTime(cons(car MnuTime) (cons (cadr MnuTime) (cdddr MnuTime))))
   
6.     (setq fileTime(cons(car fileTime) (cons (cadr fileTime) (cdddr fileTime))))
   
7.     (while (and  (setq a (car MnuTime))
   
8.     (setq b (car fileTime))
   
9.     (cond ((equal a b) (setq Flag 0) T)
   
10.           ((> a b) (setq Flag 1) nil)
    
11.           (T (setq Flag -1) nil)
    
12.     )
    
13.      )
    
14.       (setq MnuTime (cdr MnuTime))
    
15.       (setq fileTime (cdr fileTime))
    
16.     )
    
17.     FLAG
    
18.   )
    

;;TimeCompa,返回0 1，表示菜单文件是最新的，不需要更新<br />   ;;(setq MnuTime '(2017 7 25 8 48 8 0))<br />   ;;(setq fileTime '(2017 7 28 20 12 49 715))<br />   (defun TimeCompa (MnuTime fileTime / FLAG A B)<br />     (setq MnuTime(cons(car MnuTime) (cons (cadr MnuTime) (cdddr MnuTime))))<br />     (setq fileTime(cons(car fileTime) (cons (cadr fileTime) (cdddr fileTime))))<br />     (while (and  (setq a (car MnuTime))<br />     (setq b (car fileTime))<br />     (cond ((equal a b) (setq Flag 0) T)<br />           ((> a b) (setq Flag 1) nil)<br />           (T (setq Flag -1) nil)<br />     )<br />      )<br />       (setq MnuTime (cdr MnuTime))<br />       (setq fileTime (cdr fileTime))<br />     )<br />     FLAG<br />   )<br />

kozmosovia

文件时间比较直接用FSO，时间直接是实数，判断大小就行
https://learn.microsoft.com/en-u ... stmodified-property

xiaocainiao

自贡黄明儒 发表于 2024-10-8 09:34
我也写了文件时间比较，一直没写好。你怎么写的，让我们学习一下。

我直接就是用10比较每个数据、小于10前面加个0、大于等于就返回原数据、最后连起来比较一下