Question

我的Excel表格中有这种数据。有些人可能甚至没有＆＃34;文字＆＃34;：

{asdd＆＃34;：＆＃34; pagasasse＆＃34;＆＃34; qqwqwqww＆＃34;：＆＃34; ACC-96d032ef-3cef-d692-9daa-05f08106e999＆＃34;＆＃34; pusherevent＆＃34;：＆＃34;前夕-96d032ef-3cef-d692-9daa-05f08106e999＆＃34;＆＃34;条目＆＃34;：[{＆＃34; ID＆＃34;：＆＃34; 122222222＆＃ 34;，＆＃34;时间＆＃34;：1493375728269，＆＃34;消息＆＃34;：[{＆＃34;发件人＆＃34; {＆＃34; ID＆＃34;：＆＃34; 96d032ef- 3cef-d692-9daa-05f08106e999＆＃34;}＆＃34;收件人＆＃34; {＆＃34; ID＆＃34;：＆＃34; 598113966995478＆＃34;}＆＃34;时间戳＆＃34 ;: 1493375727943＆＃34;消息＆＃34; {＆＃34;中间＆＃34;：＆＃34;中间$ cAAE_a0qfMcxh5WaBR1btCE7pLG5M＆＃34;＆＃34; SEQ＆＃34;：24608＆＃34;文本＆＃ 34;：＆＃34; form __load F6910BF04A294FA59A89E398EF4B2E09＆＃34;}}]}]}＆＃34;

如何在＆＃34; text＆＃34;：

之前删除所有内容

Answer 1

通过使用A1中的值来实现此结果的公式为：

=IFERROR(LEFT(RIGHT(A1,LEN(A1)-FIND("""text"":",A1,1)-7),FIND("""",RIGHT(A1,LEN(A1)-FIND("""text"":",A1,1)-7),1)-1),"text not found")

等效的VBA将是：

Function GetTextValue(str As String) As String
    Dim tmpstr As String
    If InStr(1, str, """text"":", vbTextCompare) = 0 Then
        GetTextValue = "Text not found"
    Else
        tmpstr = Right(str, Len(str) - InStr(1, str, """text"":", vbTextCompare) - 7)
        tmpstr = Left(tmpstr, InStr(1, tmpstr, """", vbTextCompare) - 1)
        GetTextValue = tmpstr
    End If
End Function

你可以称之为：

Sub test()
Dim str as string
str = ActiveSheet.Range("A1").value
str = GetTextValue(str)
ActiveSheet.Range("B1").value = str
End Sub

或在单元格中使用：=GetTextValue(A1)

如何在＆＃34;文本之前删除所有内容：＆＃34;？

1 个答案: