VB 字符串如何换行

2015-10-21 10:22:17 2.3k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

elmos 524系列芯片笔记芯片的工作工作原理：集成芯片Elmos524.03有发射回路和接收回路，手册有关的内部原理图，大致如下：芯片会产生固有频率的电压信号，信号通过引脚DRV1、2输出给外部压电陶瓷片，产生固定频率的机械波，也就是所谓的超声波，超声波遇到障碍物时会反射，反射信号经过AINS、D引脚进入芯片，在芯片内部先后经过GAIN放大，滤波然后进入比较器，滤波后的信号（signal）同预先设定的阈值（threshold）比较产生信号输出。此信号最终会连接MCU处理器，需要重点关注。基于这个内部的工作原阅读详情

我现在获取到一串字符串，现在要做的是定义一个方法，实现的功能是，如果这个字符串中包含分号和句号，那么就自动换行，也就是将字符串拆分出来，但是还是一个字符串，宁外我这个是做报表用的，希望有会的人能够帮帮我。
举个例子 “1：abcd；2：adfg；3：asdvc。”
实现方法后
“1：abcd；
2：adfg；
3：asdvc。”

...全文

大数据应用技术实验报告一 Hadoop三种模式安装配置 JDK+Hadoop安装配置、单机模式配置以下操作在SecureCRT里面完成 1.关闭防火墙 firewall-cmd --state 显示防火墙状态running/not running systemctl stop firewalld 临时关闭防火墙，每次开机重新开启防火墙 systemctl disable firewalld 禁止防火墙服务。 2.传输JDK和HADOOP压缩包 Sec... 阅读详情

qq_25082535

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

pipi20151001 2015-10-29

打赏
举报

分离出来，只要在后面加上vbcrlf就可以了。

qq_25082535 2015-10-21

打赏
举报

引用 7 楼 worldy 的回复:

s = Replace(s, "；", "。") //将所有被认为需要换行的符号转换为。 dim A() as string A=split(s,";") //A数组每个单元对应于一行

这样应该也不行，真的可能是报表格式问题

qq_25082535 2015-10-21

打赏
举报

引用 6 楼 Tiger_Zhao 的回复:

那是显示的问题，你报表的格式就是单行的。

报表格式文本框也没有那个属性换成多行吧

worldy 2015-10-21

打赏
举报

s = Replace(s, "；", "。") //将所有被认为需要换行的符号转换为。 dim A() as string A=split(s,";") //A数组每个单元对应于一行

Tiger_Zhao 2015-10-21

打赏
举报

那是显示的问题，你报表的格式就是单行的。

qq_25082535 2015-10-21

打赏
举报

引用 4 楼 Tiger_Zhao 的回复:

function f(byval s as string) as string
    s = Replace(s, "；", "；" & vbCrLf)
    s = Replace(s, "。", "。" & vbCrLf)
    If Right$(s, 2) = vbCrLf Then '去掉末尾换行'
        s = Left$(s, Len(s) - 2)
    End If

    f = s
end function

唉并没有用啊。显示出来的还是在一行里面

Tiger_Zhao 2015-10-21

打赏
举报

function f(byval s as string) as string

    s = Replace(s, "；", "；" & vbCrLf)

    s = Replace(s, "。", "。" & vbCrLf)

    If Right$(s, 2) = vbCrLf Then '去掉末尾换行'

        s = Left$(s, Len(s) - 2)

    End If



    f = s

end function

qq_25082535 2015-10-21

打赏
举报

引用 1 楼 Tiger_Zhao 的回复:

    Dim s As String
    
    s = "1：abcd；2：adfg；3：asdvc。"
    Debug.Print s & "|" 
    
    s = Replace(s, "；", "；" & vbCrLf)
    s = Replace(s, "。", "。" & vbCrLf)
    If Right$(s, 2) = vbCrLf Then '去掉末尾换行'
        s = Left$(s, Len(s) - 2)
    End If
    
    Debug.Print s & "|"

1：abcd；2：adfg；3：asdvc。|
1：abcd；
2：adfg；
3：asdvc。|

这样的定义成方法要怎么写呢，而且我这个是放在报表里面的，debug 不能放在自定义代码里面吧

qq_25082535 2015-10-21

打赏
举报

额，这样可以定义成一个方法吗，而且我是放在报表rdl 里面的

Tiger_Zhao 2015-10-21

打赏
举报

    Dim s As String

    

    s = "1：abcd；2：adfg；3：asdvc。"

    Debug.Print s & "|" 

    

    s = Replace(s, "；", "；" & vbCrLf)

    s = Replace(s, "。", "。" & vbCrLf)

    If Right$(s, 2) = vbCrLf Then '去掉末尾换行'

        s = Left$(s, Len(s) - 2)

    End If

    

    Debug.Print s & "|"

1：abcd；2：adfg；3：asdvc。|

1：abcd；

2：adfg；

3：asdvc。|

VB 字符串如何换行

相关推荐