Re: expand date from CSV file

[Jaroslav Hajtmar <hajtmar@gyza.cz>]

Hi Pablo.
Peter pointed out an error in my solution. Thanks Peter! His message but 
pointed out that in fact is not the task as simple as it seems at first 
glance. In fact, a lot depends on what target group for those you solve 
a problem resp. whether e.g. date of birth of persons. What does it mean 
03/01/00? It means 1/3/1900? Or does it mean 01/03/2000? Particular job 
you have to deal specifically separately. It occurred to me yet 
following solution that respects the current year as the year when he 
could anyone born. E.g. 19/12/14 means a newborn soul (ie. In fact, 
12/19/2014), while 01/02/15 mean old man ie. in fact 01/02/1915. For the 
specific case you have to modify or create the solution separately.

Greetings
Jaroslav Hajtmar

Here is new minimal example:

\usemodule[scancsv]

\def\ddmmyyyy#1#2#3{% #1 - date, #2 - old separator, #3 - new separator
\startlua
     local parsedate=thirddata.scancsv.ParseCSVLine('#1','#2');
     local day=tonumber(parsedate[1]);
     local month=tonumber(parsedate[2]);
     local year=tonumber(parsedate[3]);
     if (year<100) then % when is only two digits year format then
             if year<=14 then % it is very young person
                 year=year+2000
             else % this person has more than one hundred years
                 year=year+1900;
             end;
     end;
     tex.print(day..'#3'..month..'#3'..year);
\stoplua
}

\unexpanded\def\lineaction{
     \Name\ born \Date\quad  (\ddmmyyyy{\Date}{/}{.\\,}) \\
}

% Content of CSV file:
% Name;Date
% ME;11/10/14
% You;05/02/14
% He;15/02/2014
% She;03/03/12
% It;03/03/14
% A;11/11/1999
% B;01/2/1964
% C;02/3/23
% D;03/4/64
% E;04/5/00
% F;05/6/01
% G;05/7/15
% H;05/7/1915
% Test0;1/2/00
% Test1;1/2/01
% Test2;1/2/02
% Test3;1/2/03
% Test4;1/2/04
% Test5;1/2/05
% Test6;1/2/06
% Test7;1/2/07
% Test8;1/2/08
% Test9;1/2/09
% Test10;1/2/10
% Test11;1/2/11
% Test12;1/2/12
% Test13;1/2/13
% Test14;1/2/14
% Test15;1/2/15
% Test16;1/2/16
% Test17;1/2/17
% Test18;1/2/18
% Test19;1/2/19
% Test20;1/2/20

\setheader
  \setsep{;}
  \setfiletoscan{mail.csv}

\starttext
    \filelineaction
\stoptext



Dne 18.12.2014 19:07, Pablo Rodriguez napsal(a):
> On 12/18/2014 01:24 PM, Jaroslav Hajtmar wrote:
>> Hi Pablo,
>> I am sending still slightly modified version (use local variables and
>> better typographic output).
>> It use of much variables, but at least it is clear how it works. For
>> solution occurred me to use parsing function that I have been defined in
>> the library, so that it can be successfully used.
> Many thanks for your reply, Jaroslav.
>
> This is exactly what I need.
>
> Many thanks for your help,
>
> Pablo
>
>
>> \usemodule[scancsv]
>>
>> \def\ddmmyyyy#1#2#3{% #1 - date, #2 - old separator, #3 - new separator
>> \startlua
>>       local parsedate=thirddata.scancsv.ParseCSVLine('#1','#2');
>>       local day=tonumber(parsedate[1]);
>>       local month=tonumber(parsedate[2]);
>>       local year=tonumber(parsedate[3]);
>>       if (year<2000) then year=year+2000 end;
>>       tex.print(day..'#3'..month..'#3'..year);
>> \stoplua
>> }
>>
>> \unexpanded\def\lineaction{
>>       \Name\ arrived on \ddmmyyyy{\Date}{/}{.\\,} \\
>> }
>>
>>
>> %     Name;Date
>> %     ME;11/10/14
>> %     You;05/02/14
>> %     He;15/02/2014
>> %     She;03/03/12
>> %     It;03/03/14
>>
>> \setheader
>>    \setsep{;}
>>    \setfiletoscan{mail.csv}
>>
>> \starttext
>>      \filelineaction
>> \stoptext
>>
>>
>>
>>
>> Dne 18.12.2014 9:39, Jaroslav Hajtmar napsal(a):
>>> Hi Pablo
>>>
>>> Here is a quick solution. However, it not treat the incorrect input
>>> data, ie it requires, however, correct input, otherwise it will
>>> collapse ...
>>>
>>> Jaroslav Hajtmar
>>>
>>>
>>>
>>> \usemodule[scancsv]
>>>
>>> \def\ddmmyyyy#1#2#3{% #1 - date, #2 - old separator, #3 - new separator
>>> \startlua
>>>      parsedate=thirddata.scancsv.ParseCSVLine('#1','#2');
>>>      day=tonumber(parsedate[1]);
>>>      month=tonumber(parsedate[2]);
>>>      year=tonumber(parsedate[3]);
>>>      if (year<2000) then year=year+2000 end;
>>>      tex.print(day..'#3'..month..'#3'..year);
>>> \stoplua
>>> }
>>>
>>> \unexpanded\def\lineaction{
>>>      \Name\ arrived on \ddmmyyyy{\Date}{/}{.} \\
>>> }
>>>
>>>
>>> %     Name;Date
>>> %     ME;11/10/14
>>> %     You;05/02/14
>>> %     He;15/02/2014
>>> %     She;03/03/12
>>> %     It;03/03/14
>>>
>>> \setheader
>>>   \setsep{;}
>>>   \setfiletoscan{mail.csv}
>>>
>>> \starttext
>>>     \filelineaction
>>> \stoptext
>>>
>>>
>>>
>>>
>>>
>>> Dne 17.12.2014 22:20, Pablo Rodriguez napsal(a):
>>>> Dear list,
>>>>
>>>> I have the following sample:
>>>>
>>>>       \usemodule[scancsv]
>>>>
>>>>       \unexpanded\def\lineaction{
>>>>       \Name\ arrived on \Date\\
>>>>       }
>>>>
>>>>       \setheader
>>>>       \setsep{;}
>>>>       \setfiletoscan{mail.csv}
>>>>
>>>>       \starttext
>>>>           \filelineaction
>>>>       \stoptext
>>>>
>>>> that reads data from mail.csv:
>>>>
>>>>       Name;Date
>>>>       ME;11/10/14
>>>>       You;05/02/14
>>>>       He;15/02/2014
>>>>       She;03/03/12
>>>>       It;03/03/14
>>>>
>>>> My question is simple (and not related to CSV data import): how can I
>>>> define a command (ConTeXt or Lua) that changes date format from DD/MM/YY
>>>> to DD/MM/YYYY when required?
>>>>
>>>> Many thanks for your help,
>>>>
>>>>
>>>> Pablo
>

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________