Can you improve the speed of my CSV Reader and Writer?

Question

hi all, i'm trying to develop a CSV Writer and Reader. i have done a good work to implement the special character and quoting it, it's also support multi line value but it's incredibly slow.
can someone help to make it faster?
here it's how to use the writer
char *stringhe_sorgenti[10] = {0};
out = OpenFile(nfile, VAL_WRITE_ONLY, VAL_TRUNCATE, VAL_ASCII);
for(i = 0; i < sizeof(stringhe_sorgenti)/sizeof(char*); i++){
stringhe_sorgenti[i] = (char*)calloc(200, sizeof(char));
sprintf(stringhe_sorgenti[0], "example1");
sprintf(stringhe_sorgenti[1], "example2");
scrivi_riga_csv(out, stringhe_sorgenti, sizeof(stringhe_sorgenti)/sizeof(char*), formato);
for(i = 0; i < sizeof(stringhe_sorgenti)/sizeof(char*); i++){
free(stringhe_sorgenti[i]);
CloseFile(out);
here is the writer 
void scrivi_riga_csv(int file_handle, char *stringa_sorgente[], int numero_stringhe, int formato)
char delimitatore[2][2] = {{',', '\0'}, {';', '\0'}};
char stringa_destinazione[1024] = {0};
int index_destinazione = {0};
int index_start = {0};
int index_fine = {0};
int errore = {0};
int i = {0};
//int k = {0};
size_t lunghezza_stringa = {0};
for(i = 0; i < numero_stringhe; i++){
if(i != 0){
stringa_destinazione[index_destinazione++] = delimitatore[formato][0];
index_start = 0;
lunghezza_stringa = strlen(stringa_sorgente[i]);
// se la stringa sorgente
if( (FindPattern(stringa_sorgente[i], 0, lunghezza_stringa, delimitatore[formato], 0, 0) != -1) // contiene delimitatore
|| (FindPattern(stringa_sorgente[i], 0, lunghezza_stringa, "\"", 0, 0) != -1) // contiene parentesi
|| (FindPattern(stringa_sorgente[i], 0, lunghezza_stringa, "\n", 0, 0) != -1) // contiene a capo
// apro parentesi all'inizio
stringa_destinazione[index_destinazione++] = '"';
// metodo find pattern, piu' complesso ma piu' performante
do{ index_fine = FindPattern(stringa_sorgente[i], index_start, lunghezza_stringa - index_start, "\"", 0, 0);
if(index_fine != -1){
index_fine++;
// copio dall'inizio fino alle virgolette
CopyString (stringa_destinazione, index_destinazione, stringa_sorgente[i], index_start, index_fine - index_start);
index_destinazione += index_fine - index_start;
// ne aggiungo una dopo
stringa_destinazione[index_destinazione++] = '"';
// aggiorno la posizione di start e riparto con il while
index_start = index_fine;
}while(index_fine != -1);
CopyString (stringa_destinazione, index_destinazione, stringa_sorgente[i], index_start, lunghezza_stringa - index_start);
index_destinazione += strlen(stringa_sorgente[i]) - index_start;
// alla fine della riga chiudo la parentesi
stringa_destinazione[index_destinazione++] = '"';
else{
// altrimenti la copio semplicemente e shifto l'indice della stringa di destinazione
CopyString (stringa_destinazione, index_destinazione, stringa_sorgente[i], 0, lunghezza_stringa);
index_destinazione += strlen(stringa_sorgente[i]);
memset(stringa_sorgente[i], 0, strlen(stringa_sorgente[i]));
errore = WriteLine (file_handle, stringa_destinazione, strlen(stringa_destinazione));
if(errore == -1){
errore = GetFmtIOError();
MessagePopup("WriteLine -> WriteLine", GetFmtIOErrorString(errore));
return;
 here how to read the file
char *stringhe_sorgenti[10] = {0};
for(i = 0; i < sizeof(stringhe_sorgenti)/sizeof(char*); i++){
stringhe_sorgenti[i] = (char*)calloc(200, sizeof(char));
out = OpenFile(nomearchivio, VAL_READ_ONLY, VAL_OPEN_AS_IS, VAL_BINARY);
leggi_riga_csv(out, stringhe_sorgenti, sizeof(stringhe_sorgenti)/sizeof(char*), formato);
strcpy(intestazione.data, stringhe_sorgenti[1]);
for(i = 0; i < sizeof(stringhe_sorgenti)/sizeof(char*); i++){
free(stringhe_sorgenti[i]);
CloseFile(out);
 and here the reader
void leggi_riga_csv(int file_handle, char *stringa_destinazione[], int numero_stringhe, int formato)
char delimitatore[2][2] = {{',', '\0'},
{';', '\0'}};
char stringa_sorgente[1024] = {0};
int stringa_in_corso = {0};
int index_inizio_valore = {0};
int index_doublequote = {0};
int offset_stringa_destinazione = {0};
size_t lunghezza_stringa = {0};
int inquote = {0};
int errore = {0};
int i = {0};
for(i = 0; i < numero_stringhe; i++){
lunghezza_stringa = strlen(stringa_destinazione[i]);
memset(stringa_destinazione[i], 0, lunghezza_stringa);
do{ memset(&stringa_sorgente, 0, sizeof(stringa_sorgente));
errore = ReadLine(file_handle, stringa_sorgente, sizeof(stringa_sorgente) - 1);
// If ReadLine reads no bytes because it has already reached the end of the file, it returns –2.
// If an I/O error occurs, possibly because of a bad file handle, ReadLine returns –1.
// You can use GetFmtIOError to get more information about the type of error that occurred.
// A value of 0 indicates that ReadLine read an empty line.
if(errore == -1){
errore = GetFmtIOError();
MessagePopup("leggi_riga_csv -> ReadLine", GetFmtIOErrorString(errore));
return;
else if(errore == -2){
errore = GetFmtIOError();
MessagePopup("leggi_riga_csv -> ReadLine", "already reached the end of the file");
return;
else{
lunghezza_stringa = errore;
index_inizio_valore = 0;
// metodo find pattern, piu' complesso ma piu' performante
for(i = 0; i <= lunghezza_stringa; i++){
// se come primo carattere ho una " allora e' una stringa speciale
if(inquote == 0){
if(stringa_sorgente[i] == '\"'){
inquote = 1;
index_inizio_valore = ++i;
else{
// altrimenti cerco il delimitatore senza il ciclo for
i = FindPattern(stringa_sorgente, i, lunghezza_stringa - index_inizio_valore, delimitatore[formato], 0, 0);
if(i == -1){
// se non lo trovo ho finito la riga
i = lunghezza_stringa;
if(stringa_sorgente[i - 1] == '\r'){
i--;
if(stringa_in_corso < numero_stringhe){
CopyString (stringa_destinazione[stringa_in_corso], 0, stringa_sorgente, index_inizio_valore, i - index_inizio_valore);
offset_stringa_destinazione = 0;
stringa_in_corso++;
if(stringa_sorgente[i] == '\r'){
i++;
index_inizio_valore = i + 1;
if(inquote == 1){
// se sono nelle parentesi cerco le virgolette
i = 1 + FindPattern(stringa_sorgente, i, lunghezza_stringa - index_inizio_valore, "\"", 0, 0);
if(i == 0){
if(stringa_sorgente[lunghezza_stringa - 1] == '\r'){
lunghezza_stringa--;
// se non le trovo ho finito la riga, esco dal ciclo for
break;
// se incontro una doppia parentesi salto avanti
else if(stringa_sorgente[i] == '\"'){
continue;
// !!!! fondamentale non cambiare l'ordine di questi else if !!!!!
// se incontro una parentesi seguita dal delimitatore
// o se incontro una parentesi seguita dal terminatore
// \r = CR = 0x0D = 13
// \n = LF = 0x0A = 10
// a capo = CR + LF
else if( (stringa_sorgente[i] == delimitatore[formato][0])
|| (stringa_sorgente[i] == '\r')
|| (stringa_sorgente[i] == '\0')
// salvo il valore
inquote = 0;
if(stringa_in_corso < numero_stringhe){
CopyString (stringa_destinazione[stringa_in_corso], offset_stringa_destinazione, stringa_sorgente, index_inizio_valore, i - 1 - index_inizio_valore);
offset_stringa_destinazione = 0;
stringa_in_corso++;
if(stringa_sorgente[i] == '\r'){
i++;
index_inizio_valore = i;
// se sono andato a capo scrivo fino a dove sono e poi procedo con la nuova riga
if(inquote){
if(stringa_in_corso < numero_stringhe){
CopyString (stringa_destinazione[stringa_in_corso], offset_stringa_destinazione, stringa_sorgente, index_inizio_valore, lunghezza_stringa - index_inizio_valore);
strcat(stringa_destinazione[stringa_in_corso], "\n");
offset_stringa_destinazione += lunghezza_stringa - index_inizio_valore;
offset_stringa_destinazione++;
}while(inquote == 1);
// elimino le doppie parentesi
for(i = 0; i < numero_stringhe; i++){
index_doublequote = 0;
do{ lunghezza_stringa = strlen(stringa_destinazione[i]);
index_doublequote = FindPattern(stringa_destinazione[i], index_doublequote, lunghezza_stringa - index_doublequote, "\"\"", 0, 0); // contiene doppia parentesi
if(index_doublequote != -1){
index_doublequote++;
memmove (stringa_destinazione[i] + index_doublequote, stringa_destinazione[i] + index_doublequote + 1, lunghezza_stringa - index_doublequote);
}while(index_doublequote != -1);
return;

Answer 1

the format is CSV, i try to explain better what i'm doing.
our client asked to save acquisition data with header description in an excel readable format, i've decided to use .CSV and not .TDM because it's a simple txt file and we never used .TMD but i will propose to use it.
after some research on the internet i've found nothing to handle .CSV in CVI except from this csv_parse but i've found it difficult to be maintained so i've write it by my own hand.
i've written two example of how to use my function to read or write and i've copyed my function used to read and write.
in the write function i check with FindPattern if the string to be write contain some special character, if i find this i have to quote the string to respect the standard RFC4180 and if i find a quote i have to double it. aftere i've done this check i write the line in the file.
in the read function, that is more complicated, i:
check if the first character is a quote.
if it's not i copy the string until the delimitier or until the end of the line.
if it is i have a string with special character inside so:
i find the first quote in the string. when i've found i check if it's follwed by another quote. this means that in the starting message i was writing a single quote.
if it's not followed by another quote but it's followed by a delimiter or a carriage return i've finished the special line.
if i don't find it it means that the special quote have a carriage return inside and i have to check the next line. before checking the next line i save this in my string.
after this loop i check in every string if i have a double quote and i delete one.
the main problem is in the speed of this, i'm acquiring data at 1000 S/s with 8 active channel for 60 second so i have 480000 data to be stored, divided in 60.000 row and 8 column. to read a file like that my pc stay "locked" for 15 second or more.
i've tried to use the arraytofile function and it's extremly fast and i can also put header because the function can start from the last position in the file but the filetoarray function start from the beginning and i cannot read the header correctly. also if i'm using the european CSV with semicolon as delimiter with arraytofile i cannot select the semicolon but only the coma