代码之家 › 专栏 › 技术社区 › Elmar

删除CSV中不必要的数据/空间

vb6

Elmar · 技术社区 · 7 年前

12345,"        ","abcde fgh",2017-06-06,09:00,AM,"       ", US

12345,,"abcde fgh",2017-06-06,09:00,AM,, US

自从 " " 应视为空。

这是我的示例函数。

Private Sub Transform(delimiter As String)

   Dim sFullPath    As String
   Dim strBuff      As String
   Dim re           As RegExp
   Dim matches      As Object
   Dim m            As Variant

   If delimiter <> "," Then
      strBuff = Replace(strBuff, delimiter, ",")
   Else
        With re
            .Pattern = "(?!\B""[^""]*)" & delimiter & "(?![^""]*""\B)"
            .IgnoreCase = False
            .Global = True
        End With

        Set matches = re.Execute(strBuff)
        For Each m In matches
            strBuff = re.Replace(strBuff, ",")
        Next

        Set re = Nothing
        Set matches = Nothing  
    End If
End Sub

3 回复 | 直到 7 年前

jac 7 年前

Chr(34) 在字符串中包含双引号。

\B(\s)(?!(?:[^""]*""[^""]*"")*[^""]*$)

12345," ","abcde fgh",2017-06-06,09:00,AM," ", US

产量

12345,"","abcde fgh",2017-06-06,09:00,AM,"", US

示例函数

Private Function Transform(ByVal strLine As String) As String
    Dim objRegEx As RegExp

    On Error GoTo ErrTransForm

    Set objRegEx = New RegExp
    With objRegEx
        .Pattern = "\B(\s)(?!(?:[^""]*""[^""]*"")*[^""]*$)"
        .IgnoreCase = False
        .Global = True
        Transform = .Replace(strLine, "")
    End With

ExitTransForm:
    If Not objRegEx Is Nothing Then
        Set objRegEx = Nothing
    End If
    Exit Function

ErrTransForm:
    'error handling code here
    GoTo ExitTransForm

End Function

信用是应得的。我用这个答案, Regex Replace Whitespaces between single quotes

Bugs Manjeet 7 年前

我会添加一个输出字符串变量,并有一个条件语句,表示如果输入不是空的,请将其添加到输出字符串中。例如(VB控制台应用程序格式,提示用户输入许多输入):

Dim input As String
Dim output As String

Do
    input = console.ReadLine()
    If Not input = " " Then
        output += input
    End If
Loop Until (end condition)

Console.WriteLine(output)

您可以将不希望的任何输入抛出到条件中,以将其从输出中删除。

-3

Giorgio Brausi 7 年前

您的CSV文件格式不正确。

在这之后,你现在有了一个真正的CSV文件,你可以导入没有问题。

推荐文章

StayOnTarget Charlie Flowers · “完全编译开始”和“生成Exe”之间的区别?

6 年前

Mathieu Guindon · DefVar是否有一个单一的合法用例?

6 年前

Joaquim Ribeiro · 确定是否在ListView中单击了项目或未单击任何内容

7 年前

Stefan van de Laarschot · VB6代码到VB。净额

7 年前

jac · VB6能否调用C#COM对象重载方法

7 年前

Gabriel Intriago · 包含来自的WebServices的Dll。Net到vb6-如何设置应用程序。配置

7 年前

Shadow Moon · 如何在VB 6.0中读写逗号分隔的文本值

7 年前

Davide Redaelli · vb6:如何检测字符串是否为unicode

7 年前

Balagurunathan Marimuthu Mandeep Singh · 如何在VB6中基于匹配值合并两个CSV文件

7 年前

Karlos Garcia · 使用VB6的WebBrowser从URL保存文件

7 年前