时间戳

首页 > 解决方案 > 删除使用 vba 代码生成的输出文件中的引号

excel - 删除使用 vba 代码生成的输出文件中的引号

问题描述

Function TransformLine(sLineData As String) As String

    Dim sOutput As String
    Dim sPre As String
    Dim sPos As String
    Dim iPosV As Integer, iPosDQ As Integer

    iPosV = InStr(1, sLineData, "_V", vbTextCompare)
    If iPosV > 0 Then
        iPosDQ = InStr(iPosV, sLineData, Chr(34), vbTextCompare)
        sPre = Left(sLineData, iPosV - 1)
        sPos = Right(sLineData, Len(sLineData) - iPosDQ + 1)
        sOutput = sPre & sPos
    Else
        iPosDQ = 0
        sOutput = sLineData
    End If

    TransformLine = sOutput

End Function

现在的实际输出：

"01/07/2019|""30/09/2019""|""IGL""|""RC 000000001235 JUL-19 SEP-19""|""IGLCNTLEUR""|""IGLCNTLEUR""|""B03873""|""LARRAIN VIAL ACTIVOS SA""|""0""|""LARRAIN VIAL ACTIVOS SA""|""0""|""LARRAIN VIAL ACTIVOS SA""|""33199_V1""|""FUNDSETTLE EOC NOMINEES LTD A/C FS/BBH FBO 2010858 ADMIN CCHE- CACTIVO REINVEST""|""No""|""2072""|""CC""|""LU0100600369""|""INVESCO GREATER CHINA EQUITY FUND""|""ACC C""|""USD""|4794|0.1|92.33|0|0|""USD""|1|92.33|0|""E""|""20191101""|""""|""PM000000238966"""

预期输出我想单独删除一组双引号，如下所示

"01/07/2019"|"30/09/2019"|"IGL"|"RC 000000001235 JUL-19 SEP-19"|"IGLCNTLEUR"|"IGLCNTLEUR"|"B03873"|"LARRAIN VIAL ACTIVOS SA"|"0"|"LARRAIN VIAL ACTIVOS SA"|"0"|"LARRAIN VIAL ACTIVOS SA"|"33199"|"FUNDSETTLE EOC NOMINEES LTD A/C FS/BBH FBO 2010858 ADMIN CCHE- CACTIVO REINVEST"|"No"|"2072"|"CC"|"LU0100600369"|"INVESCO GREATER CHINA EQUITY FUND"|"ACC C"|"USD"|4794|0.1|92.33|0|0|"USD"|1|92.33|0|"E"|"20191101"|""|"PM000000238966"

标签： excelvbareplace

解决方案

推荐阅读