Question

我在SQL-Server 2008R2表中有一个字段，其中包含这样的值（一个字段中的所有行）：

Split(rs("Myfield"), "<div><font face=""Times New Roman"" size=3 color=black>")

我在Access 2010中工作，必须将此内容导出到包含3列的Excel工作表：名称，地址，邮编+城市

我试过

@interface ObjectA : NSObject
-(void)subscribeToKeyboardNotifications;
-(void)unsubscribeToKeyboardNotifications;
@end

但它不起作用。

知道如何分割这个字符串吗？谢谢迈克尔

Answer 1

你将它拆分为错误的分隔符......

<强>逻辑

用空白

<div><font face=""Times New Roman"" size=3 color=black>

拆分</font></div>

这是你在尝试的吗？

Sub Sample()
    Dim s As String

    's = rs("Myfield")
    s = "<div><font face=""""Times New Roman"""" size=3 color=black>MyCustomer Name Ltd.</font></div>" & _
        "<div><font face=""""Times New Roman"""" size=3 color=black>MyCustomer Adress</font></div>" & _
        "<div><font face=""""Times New Roman"""" size=3 color=black>MyCustomer Zip-code MyCustomer City</font></div>"

    'Debug.Print s

    s = Replace(s, "<div><font face=""""Times New Roman"""" size=3 color=black>", "")

    Debug.Print Split(s, "</font></div>")(0) '<~~ MyCustomer Name Ltd.
    Debug.Print Split(s, "</font></div>")(1) '<~~ MyCustomer Adress
    Debug.Print Split(s, "</font></div>")(2) '<~~ MyCustomer Zip-code MyCustomer City
End Sub

Answer 2

很抱歉Siddharth错误地使用了评论。

与此同时，我通过此

管理了我的可变行数问题

Do While Not rs.EOF
m = rs("MyField")
m = Replace(m, "<div><font face=""Times New Roman"" size=3 color=black>", "")
s() = Split(m, "</font></div>")

For i = LBound(s()) To UBound(s()) 
    Debug.Print s(i)

Next i

rs.MoveNext

循环

再次感谢你。答复！迈克尔

VBA拆分HTML字符串

2 个答案: