Añadir Lineas de un TXT creado por mi aplicación a una GRID

Aquí puedes preguntar o compartir tus dudas y conocimientos acerca del programa
Amigos necesito su ayuda, al momento de Generar un TXT desde la aplicación que estoy creando, quedando asi el formato TXT:
2,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
4,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
1,PRUEBA,Q5C/u,03/15/2021,22:28:11,jaime.coc
que esta delimitado por (,) con la intención que se lea el TXT y que se agreguen a la GRID, pero lamentablemente solo se agrega Una linea y el resto no se agrega .
----------------
Para generar el TXT uso este Codigo:
ExisteInicioJornada = File.DoesExist(Dir..FJornada.."\\"..FJornada..".bl");
ActiveL = TextFile.ReadToString("C:\\ClicPathSoftware\\Orcano\\raiz\\logins\\active_\\active.bl");
if ExisteInicioJornada then
Anterior = TextFile.ReadToString(Dir..FJornada.."\\"..FJornada..".bl");
TextFile.WriteFromString(Dir..FJornada.."\\"..FJornada..".bl",Anterior.."\n".."\n"..CantidadUnit..","..NombreProducto..",Q"..Precio.."C/u"..","..FechaPara..","..TimeH..","..ActiveL, false);
Y para agregar el TXT a la GRid uso este código que me compartió el amigo de este foro:
AA = Input.GetText("AA");
MM = Input.GetText("MM");
DD = Input.GetText("DDD");
-- Headers of The Grid--
	tTableHeader = {"Cantidad", "Nombre","Precio","Fecha", "Hora", "Usuario"};
	for i=0,5,1 do 
		sHeader = tTableHeader[i+1]; 
		Grid.SetCellText("Grid1", 0, i, sHeader, true);
		Grid.AutoSizeColumn("Grid1", i, GVS_DEFAULT, true, true);
	end


Grid.DeleteNonFixedRows("Grid1", true);
bDataFile = File.DoesExist("C:\\ClicPathSoftware\\Orcano\\Loop\\Payments\\"..AA.."-"..MM.."-"..DD.."\\"..AA.."-"..MM.."-"..DD..".bl"); 
if bDataFile == true then
	tTextFile = TextFile.ReadToTable("C:\\ClicPathSoftware\\Orcano\\Loop\\Payments\\"..AA.."-"..MM.."-"..DD.."\\"..AA.."-"..MM.."-"..DD..".bl")
	nCountMainTable = Table.Count(tTextFile); 
	if nCountMainTable > 0 then
		for i=1, nCountMainTable do
			tSubTable = DelimitedStringToTable(tTextFile[i], ",") 
			nCountSubTable = Table.Count(tSubTable);
			Grid.InsertRow("Grid1", -1, true);			
			if nCountSubTable > 0 then	
				nColumn = 0;
				for j,sColumnData in pairs (tSubTable) do
--					
					Grid.SetCellText("Grid1", i, nColumn, sColumnData, true);
					Grid.AutoSizeColumn("Grid1", nColumn, GVS_DEFAULT, true, true);
					Grid.AutoSizeRow("Grid1", i, true, true);
					nColumn = nColumn+1;
				end 
				Grid.ExpandLastColumn("Grid1", true);
			end 
		end 
	else
		Dialog.Message("Notice", "Text File has no data", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
	end 
end

ayuda por favor colegas!
Hola, para la próxima intenta añadir el código así: [lua*]Mi código[/lua*] (sin los asteriscos). Hay un botón que dice LUA.

Te dejo este ejemplo, ¿esto es lo que necesitas?

HIDE: ON
Hidebb Message Hidden Description


Saludos.
Ya lo logre amigo gracias!!! Y como haría en caso de que quisiera que la Fila 0 y Columna 0 este en color negrita
Gracias
jaimecoc escribió:
21 Mar 2021 02:45
Ya lo logre amigo gracias!!! Y como haría en caso de que quisiera que la Fila 0 y Columna 0 este en color negrita
Gracias
Eso es fácil, fíjate en: "Grid.SetCellColors".

Ejemplo: para cambiar el color de fondo y del texto:

-- Cambiar los colores de la celda por la celda 1, 1
-- Hacer el fondo blanco y texto negro
tbColors = {Background=16777215,Text=0};
Grid.SetCellColors("Grid1",1,1,tbColors);



Ejemplo: para cambiar el tipo de fuente:

tblFont = {};
tblFont.FaceName = "Verdana";
tblFont.Height = 7;
tblFont.Weight = FW_THIN;
tblFont.Italic = true;
tblFont.Underline = true;
Grid.SetCellFont("Grid1", 3, 2, tblFont, true);

Solo tendrías que utilizar el mismo for que ya tienes en el código, para que cambie la Fuente, el color del fondo fondo y del texto de toda las Columnas de la Fila 0. Fíjate en los ejemplos que te dan. Saludos.
me interesa quiero hacer una para el control de mi negocio :ohyeah: