如何判断字符串的长度？

qjxuyuan · 发表于 2024-4-10 10:42

本帖最后由 qjxuyuan 于 2024-4-10 13:17 编辑

如何判断字符串的长度？

编程逻辑：
A列至C列为数据列，数据写入D列E列；遍历c列的每一行，对于c列的每一行，取其字符数（汉字的个数），分三类情况处理：
1，如果c列只有1个汉字，则用该字在a列找出匹配值，并将这个匹配值所对应的b列c列写入到该字的d列e列。未找出匹配值，则提示：未找到“x”！
2，如果c列有2个汉字，则将第二个字写入d列并在a列匹配第二个字，将匹配到字的b列写入e列；未找出匹配值，则提示：未找到“x”！
3，如果c列汉字大于2个，则将第二个字和第三个字分别写入d列e列
求助说明：
“𠬝” 是一个多字节字符，只有一个汉字，但占据2个字符位；详见附件中的G列。
或者这样举例描述：附件中C列的 “干” 为一个汉字，字符数为1，“𠬝” 也是一个汉字，但字符数为2 。当代码运行至“𠬝”时，则认为是2个汉字。判断只有1个汉字才是我的需求，希望得到大家的帮助。（代码中有备注： '如何判断数据长度？）
谢谢！

如何判断数据长度.rar (8.3 KB, 下载次数: 10)
曾经在VBA代码宝发过该帖，是否发错版块位置了？

犯了个错误：压缩包上传错误！下面是正确的压缩包：

如何判断数据长度2.rar (17.18 KB, 下载次数: 8)

qjxuyuan · 发表于 2024-4-10 14:01

犯了个错误：压缩包上传错误！以提供正确的压缩包。

qjxuyuan · 发表于 2024-4-10 14:02

犯了个错误：压缩包上传错误！以提供正确的压缩包。

yynrzwh · 发表于 2024-4-10 15:29

如何判断数据长度2.zip (22.42 KB, 下载次数: 6)

lunarK · 发表于 2024-4-10 16:28

试试看，部分功能需微调

qjxuyuan · 发表于 2024-4-10 19:42

本帖最后由 qjxuyuan 于 2024-4-10 19:55 编辑

yynrzwh 发表于 2024-4-10 15:29

谢谢回复！
C列单元格中可能有1到3个字，它们可能全部单字节，双字节或两者的组合。
      If ar(i, 7) * 2 = ar(i, 8) Then
         w = ar(i, 7)
      Else
         w = ar(i, 8) / 2
      End If
上述代码中，当
ar(i, 7)=1或2或3
或者
ar(i, 7)=2或4或6
成立（即 C i 单元格全部为单字节或双字节）
如果当
ar(i, 7)=3或5
不成立（即出现单、双字节组合时）
这种情况该如何设置？

joforn · 发表于 2024-4-10 22:00

非单字节字符个数=LENB(StrConv("你的字符串", vbFromUnicode))-LEN(“你的字符串”)

qjxuyuan · 发表于 2024-4-12 21:55

本帖最后由 qjxuyuan 于 2024-4-12 22:14 编辑

joforn 发表于 2024-4-10 22:00
非单字节字符个数=LENB(StrConv("你的字符串", vbFromUnicode))-LEN(“你的字符串”)

折腾了几天，还是不得要领。
w = LenB(StrConv(ar(i, 3), vbFromUnicode)) / 2
一个字符在 len(㝵)=1 lenB(㝵)=2 LenB(㝵, vbFromUnicode))=1 为什么？

㝵这个字符是上面“旦”下面“寸”

如何判断数据长度3.rar (22.92 KB, 下载次数: 0)

		自动登录	找回密码
密码			免费注册