主题：关于快递地址截短的判断

打印快递面单时，需截短到县级城市为止，譬如：浙江省金华市义乌市望道路377号，这个地址在面单上有部分区域需要打印出“浙江金华义乌”，其中“省”“市”这些字要去掉

简单，就这样改

 

Dim sp() As Char = {"县","区","市","省"}
Dim data As String = "浙江省金华市义乌市"
Dim str
For Each s As String In data.Split(sp)
    str &= s
Next
msgbox(str)

市后面的那些字如何去掉？我的条件写错了。地址比较长：浙江省金华市义乌市望道路377号，这样的，“市”之后的字符串，不要

If e.DataCol.Name = "收件地址" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    Dim s As String = e.NewValue '例如："浙江省金华市义乌市望道路377号"
    Dim str() As String = {"县","区","市","省"}
    For i As Integer = 0 To str.Length - 1
        If s.LastIndexOf(str(i)) > 0 Then
            s = s.SubString(0,s.LastIndexOf(str(i)))
            Exit For
        End If
    Next
    For i As Integer = 0 To str.Length - 1
        s = s.Replace(str(i),"") '浙江金华义乌       
    Next   
End If

 或者这样

 

Dim sp() As Char = {"县","区","市","省"}
Dim data As String = "浙江省金华市义乌市望道路377号"
Dim str As String = ""
Dim ary() As String = data.Split(sp)
For i As Integer = 0 To ary.Length - 2
    str &= ary(i)
Next
msgbox(str)

感谢有点甜。这个很好用。我前面还加了点 Replace 空格的判断...很好用