求代码：备注字段分段精减后合并。

ynjxw

在备注字段（属一条记录）里有原始数据如：
1、过敏指数： 极易发 ，天气条件极易诱发过敏，易过敏人群尽量减少外出，外出宜穿长衣长裤并佩戴好眼镜和口罩，外出归来时及时清洁手和口鼻。
2、空气污染扩散条件指数： 中 ，气象条件对空气污染物稀释、扩散和清除无明显影响，易感人群应适当减少室外活动时间。
3、美发指数： 极适宜 ，温湿适宜，风力较小，这为您的头发创造一个健康、洁净的生长环境，加上您细心的呵护打理，您的秀发定能飘逸动人。
4、洗车指数： 不宜 ，不宜洗车，未来24小时内有雨，如果在此期间洗车，雨水和路上的泥水可能会再次弄脏您的爱车。
5、运动指数： 较适宜 ，天气较好，无雨水困扰，较适宜开展各种户内外运动，但因气温较低，在户外运动请注意增减衣物。
6、逛街指数： 适宜 ，天气较好，在这种天气里去逛街，既可畅快地放松身心，又会有很多意外收获，真是无比惬意。
--------------------------------------------------------------------------------------------------------------------------------------------------------
现想精减成这样（也就是取每段前20个字符，并加"..."），并在查询中显示（属一条记录）：
1、过敏指数：极易发，天气条件极易诱发过...
2、空气污染扩散条件指数：中，气象条件对...
3、美发指数：极适宜，温湿适宜，风力较小...
4、洗车指数：不宜，不宜洗车，未来24小...
5、运动指数：较适宜，天气较好，无雨水困...
6、逛街指数：适宜，天气较好，在这种天气...
--------------------------------------------------------------------------------------------------------------------------------------------------------
注：原始及精减后都需要保证段落不变。
附：原始表。
跪求啊！

andymark

select left(备注,20) & "..."  as NEW FROM 表

这样行吗

有些控件支持内容自动省略的功能

ynjxw

是要每一段都省略一些。而不是整体省略。

咱家是猫

在Roych代码的基础上帮你改造下:
在标准模块中:
Function TrimString(str As String) As String
   
    Dim strArray() As String
    Dim strTemp As String
    Dim i As Integer
   
    strArray = Split(str, vbCrLf)
    For i = 0 To UBound(strArray)
        strTemp = strArray(i)
        If Len(strTemp) > 23 Then strTemp = Left(strTemp, 20) & "..."
        TrimString = TrimString & strTemp & vbCrLf
    Next i
   
End Function

在查询或窗体中引用:
TrimString([字段名])

ynjxw

多谢roych 版主，这个代码怎么用在查询中呢。还要麻烦roych给予帮助一下。

ynjxw

正是要这个效果呀，多谢多谢roych，多谢猫哥！{:soso_e145:}{:soso_e146:}

ynjxw

跪求啊！

roych

是不是这样啊？

1. 
   
2. Sub test()
   
3. Dim rst As New ADODB.Recordset
   
4. Dim tt As String
   
5. Dim xx
   
6. rst.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7. tt = rst(1)
   
8. rst.Close
   
9. xx = Split(tt, vbCrLf)
   
10. For i = 0 To UBound(xx)
    
11. Debug.Print Left(xx(i), 22) & "…"
    
12. Next
    
13. End Sub
    

复制代码