处理CSV文件，一行行读取并存为数组（Domino + C＃）

一、Domino中的函数

Private Const CLASS_NAME = "HandleCSVFile"
Private objLog As StdLog

Public Class HandleCSVFile
Private db As NotesDatabase
Private sess As NotesSession
Private ws As NotesUIWorkspace
''Private strFullPath As String

Sub new()
On Error Goto ErrHandler
Const PROC_NAME = "New"
WriteLog PROC_NAME, PROC_START, DEBUG_LOG

Set sess = New NotesSession
Set db = sess.CurrentDatabase
Set ws = New NotesUIWorkspace

ExitPoint:
WriteLog PROC_NAME, PROC_END, DEBUG_LOG
Exit Sub
ErrHandler:
WriteLog PROC_NAME, "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")" , ERROR_LOG
Resume ExitPoint
End Sub

Public Function ImportCSVToMappingProfile(strFilePath As String)
On Error Goto ErrHandler
Const PROC_NAME = "ImportCSVToMappingProfile"
WriteLog PROC_NAME, PROC_START, DEBUG_LOG

Dim fileNum As Integer
Dim strLineData As String
Dim vntLineData As Variant
Dim counter As Integer
Dim docMappingProfile As NotesDocument
Dim dcMapping As NotesDocumentCollection
Dim docMapping As NotesDocument
Dim strFormula As String
Dim strMachineID As String
Dim strOctopusID As String

fileNum = Freefile()

counter = 0

Open strFilePath For Input As fileNum%
Do While Not Eof(fileNum%)
Line Input #fileNum%, strLineData$
vntLineData = SplitCSVValue(strLineData$) ''Machine ID + Octopus ID

counter = counter + 1
''rule out the first line
If counter > 1 Then
If vntLineData(0) <> "" And vntLineData(1) <> "" Then
strMachineID = vntLineData(0)
strOctopusID = vntLineData(1)
strFormula = {(Form="MappingProfile") & (MachineID="} + strMachineID + {")}
Set dcMapping = db.Search(strFormula,Nothing,0)
If dcMapping.Count > 0 Then
Call dcMapping.StampAll("OctopusID",strOctopusID)
WriteLog PROC_NAME, "Mapping Profile: Update Octopus ID to '" + strOctopusID + "' depending on Machine ID '"+strMachineID+"'" , INFORMATION_LOG
Else
Set docMappingProfile = New NotesDocument(db)
With docMappingProfile
.Form = "MappingProfile"
.FormType = "MappingProfile"
.MachineID = strMachineID
.OctopusID = strOctopusID
End With
Call docMappingProfile.Save(True,False)
WriteLog PROC_NAME, "Create a new Mapping Profile, Machine ID is '" + strMachineID + "', Octopus ID is '"+strOctopusID+"'" , INFORMATION_LOG
End If
End If
End If
Loop
Msgbox "Import successfully.",48,"Ricoh"
ExitPoint:
WriteLog PROC_NAME, PROC_END, DEBUG_LOG
Exit Function
ErrHandler:
WriteLog PROC_NAME, "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")" , ERROR_LOG
Resume ExitPoint
End Function

Public Function ExportMappingProfileToCSV()
On Error Goto ErrHandler
Const PROC_NAME = "ExportMappingProfileToCSV"
WriteLog PROC_NAME, PROC_START, DEBUG_LOG

Dim fileName As Variant
Dim fileNum As Integer
Dim strMachineID As String
Dim strOctopusID As String
Dim dcMapping As NotesDocumentCollection
Dim docMapping As NotesDocument
Dim strFormula As String
Dim i As Integer

fileName = ws.SaveFileDialog(False,"Save Directory","CSV|*.csv","c:\","MappingProfile.csv")
If Not(Isempty(fileName)) Then

fileNum% = Freefile()

strFormula = {(Form="MappingProfile")}
Set dcMapping = db.Search(strFormula,Nothing,0)
If dcMapping.Count > 0 Then
Open fileName(0) For Output As fileNum%
Print #fileNum%, "Machine ID" + "," + "Octopus ID"
For i = 1 To dcMapping.Count
Set docMapping = dcMapping.GetNthDocument(i)
strMachineID = docMapping.GetItemValue("MachineID")(0)
strOctopusID = docMapping.GetItemValue("OctopusID")(0)
If Instr(strMachineID,"""") > 0 Then
strMachineID = Replace(strMachineID,"""","""""")
End If
If Instr(strOctopusID,"""") > 0 Then
strOctopusID = Replace(strOctopusID,"""","""""")
End If
If Instr(strMachineID,",") > 0 Then
strMachineID = {"} + strMachineID + {"}
End If
If Instr(strOctopusID,",") > 0 Then
strOctopusID = {"} + strOctopusID + {"}
End If

Print #fileNum%, strMachineID + "," + strOctopusID
Next

Close fileNum%

WriteLog PROC_NAME, "Export all mapping profile to file '" + Cstr(fileName(0)) + "'", INFORMATION_LOG
End If

Msgbox "Export successfully.",48,"Ricoh"
End If

ExitPoint:
WriteLog PROC_NAME, PROC_END, DEBUG_LOG
Exit Function
ErrHandler:
WriteLog PROC_NAME, "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")" , ERROR_LOG
Resume ExitPoint
End Function

Private Function SplitCSVValue(Byval LineStrData As String) As Variant
On Error Goto ErrHandler
Const PROC_NAME = "SplitCSVValue"
WriteLog PROC_NAME, PROC_START, DEBUG_LOG

Dim vntReturn As Variant

If Instr(LineStrData, ",") > 0 Then
vntReturn = SplitValue(LineStrData)
Else
Redim vntReturn(0)
vntReturn(0) = LineStrData
End If
SplitCSVValue = vntReturn

ExitPoint:
WriteLog PROC_NAME, PROC_END, DEBUG_LOG
Exit Function
ErrHandler:
WriteLog PROC_NAME, "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")" , ERROR_LOG
Resume ExitPoint
End Function

Private Function SplitValue(Byval OrgValue As String) As Variant
On Error Goto ErrHandler
Const PROC_NAME = "SplitValue"
WriteLog PROC_NAME, PROC_START, DEBUG_LOG

Dim vntTmp As Variant
Dim strTmp As String
Dim strNotSplit As String
Dim intLastCommaPos As Integer
Dim intPreCommaPos As Integer
Dim intTmpPos As Integer

Redim vntTmp(0)

strNotSplit = OrgValue
intPreCommaPos = 1
While strNotSplit <> ""
intLastCommaPos = Instr(intPreCommaPos, strNotSplit, ",")
If intLastCommaPos = 0 Then
If IsEvenQuotation(strNotSplit) Then
vntTmp(Ubound(vntTmp)) = FormatStr(strNotSplit)
Else
vntTmp(Ubound(vntTmp)) = strNotSplit
End If
End If
If intLastCommaPos > 0 Then
strTmp = Mid(strNotSplit, 1, intLastCommaPos - 1)
If IsEvenQuotation(strTmp) Then
vntTmp(Ubound(vntTmp)) = FormatStr(strTmp)
Redim Preserve vntTmp(Ubound(vntTmp) + 1)
intPreCommaPos = 1
strNotSplit = Mid(strNotSplit, intLastCommaPos + 1)
Else
intPreCommaPos = intLastCommaPos + 1
End If
Else
strNotSplit = ""
End If
Wend
SplitValue = vntTmp

ExitPoint:
WriteLog PROC_NAME, PROC_END, DEBUG_LOG
Exit Function
ErrHandler:
WriteLog PROC_NAME, "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")" , ERROR_LOG
Resume ExitPoint
End Function

Private Function IsEvenQuotation(Byval strTmp As String) As Boolean
On Error Goto ErrHandler
Const PROC_NAME = "IsEvenQuotation"
WriteLog PROC_NAME, PROC_START, DEBUG_LOG

Dim intQuotationCount As Integer
Dim intStart As Integer

intQuotationCount = 0
intStart = 0
IsEvenQuotation = True
While Instr(intStart + 1, strTmp, """") > 0
intStart = Instr(intStart + 1, strTmp, """")
intQuotationCount = intQuotationCount + 1
Wend

If intQuotationCount Mod 2 <> 0 Then
IsEvenQuotation = False
End If

ExitPoint:
WriteLog PROC_NAME, PROC_END, DEBUG_LOG
Exit Function
ErrHandler:
WriteLog PROC_NAME, "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")" , ERROR_LOG
Resume ExitPoint
End Function

Private Function FormatStr(Byval strTmp As String) As String
On Error Goto ErrHandler
Const PROC_NAME = "FormatStr"
WriteLog PROC_NAME, PROC_START, DEBUG_LOG

Dim strReturn As String
strReturn = strTmp
If Left(strReturn, 1) = """" Then
strReturn = Mid(strReturn, 2)
strReturn = Mid(strReturn, 1, Len(strReturn) - 1)
End If
FormatStr = Replace(strReturn, String(2, """"), """")

ExitPoint:
WriteLog PROC_NAME, PROC_END, DEBUG_LOG
Exit Function
ErrHandler:
WriteLog PROC_NAME, "Line " & Cstr(Erl) & " - " & Error$ & " (" & Cstr(Err) & ")" , ERROR_LOG
Resume ExitPoint
End Function

Private Function WriteLog(Byval Source As String, Byval LogMessage As String, LogLevel As Integer) As Integer
On Error Goto ErrHandler
Const PROC_NAME = "WriteLog"

WriteLog = False
If objLog Is Nothing Then
Set objLog = CreateLogObject()
End If
objLog.WriteLog CLASS_NAME & "\" & Source, LogMessage, LogLevel
WriteLog = True
Exit Function

ErrHandler:
Msgbox CLASS_NAME & "\" & Source & ": " & LogMessage, 48, CLASS_NAME
Exit Function
End Function
End Class

二、C＃处理函数

using System;
using System.Collections.Generic;
using System.Text;
using System.Collections;

namespace Common
{
public class HandlecCSVFile
{
public HandlecCSVFile()
{
}

public string[] SplitCSVLine(string lineData)
{
ArrayList columnsValue;

if (lineData.IndexOf(',') != -1)
{
columnsValue = SplitLine(lineData);
}
else
{
columnsValue = new ArrayList();
columnsValue.Add(lineData);
}

return (string[])columnsValue.ToArray(typeof(string));
}

private ArrayList SplitLine(string originalValue)
{
ArrayList columnsValue;
string notSplit;
int preCommaPos;
int lastCommaPos;
char splitBy;
string temp;

notSplit = originalValue;
columnsValue = new ArrayList();
splitBy = ',';

columnsValue.Add("");

preCommaPos = 0;
while (notSplit != string.Empty)
{
lastCommaPos = notSplit.IndexOf(splitBy, preCommaPos);
if (lastCommaPos == -1)
{
if (IsEvenQuotation(notSplit))
{
columnsValue[columnsValue.Count-1] = FormatStr(notSplit);
}
else
{
columnsValue[columnsValue.Count-1] = notSplit;
}
}
if (lastCommaPos > -1)
{
temp = notSplit.Substring(0, lastCommaPos);
if (IsEvenQuotation(temp))
{
columnsValue[columnsValue.Count - 1] = FormatStr(temp);
columnsValue.Add("");
preCommaPos = 0;
notSplit = notSplit.Substring(lastCommaPos + 1);
}
else
{
preCommaPos = lastCommaPos + 1;
}
}
else
{
notSplit = string.Empty;
}
}

return columnsValue;
}

private bool IsEvenQuotation(string tempString)
{
int quotationCount;
int start;

quotationCount = 0;
start = -1;

while (tempString.IndexOf('"', start+1) != -1)
{
start = tempString.IndexOf('"', start + 1);
quotationCount = quotationCount + 1;
}
if (quotationCount % 2 != 0)
{
return false;
}
else
{
return true;
}
}

private string FormatStr(string tempString)
{
string rtnString = tempString;
if (tempString.StartsWith("\"") == true)
{
rtnString = rtnString.Substring(1);
rtnString = rtnString.Substring(0, rtnString.Length - 1);
}
return rtnString.Replace("\"\"", "\"");

}
}
}