VB script - výstup textové proměnné

Zdravím všechny odborníky i ty ostatní.

Jsem "tzv. programátor" amatér. Slovo programátor dávám schválně do uvozovek, jelikož to je jen malá část pravdy . Okolnosti mě donutily abych si uzpůsobil nedostatečný výstup ze software (vyhodnocení chemických analýz), který podporuje Vbasic.
Mám následující dotaz:

Analyzuje se několik složek, u každé je několik údajů. Vytahání z datového souboru není problém. Dostal jsem se až do stadia, že všechny požadované hodnoty nacpu do dvourozměrného datového pole. Na čem ztroskotávám je, jak tyto proměnné vložit do něčeho, co by alespoň vzdáleně připomínalo tabulku.
Pokud je totiž do reportu posílám postupně (oddělené Lf, Cr) vždy se do reportu dostane jen poslední údaj.

Třeba se ptám hloupě, třeba to skuteční profesionálové dělají zcela jinak. Třeba to vůbec tímhle způsobem nepůjde. Než se obrátím přímo na programátory tohoto sw, zkusím to ještě zde.
Díky za váš čas.
Jack

Předmět	Autor	Datum
Výstup má být na obrazovku? Jinak by se nabízela možnost, uložit hodnoty do txt souboru ve formátu C… host 01.06.2007 13:04	host	01.06.2007 13:04
Výstup měl být prostřednictvím proměnné do reportu. Nakonec jsem to vyřešil takto (třeba je to nesta… Jack 01.06.2007 15:01	Jack	01.06.2007 15:01
Hoste, prosím, nakopni mě jak vyexportovat výstup do CSV. Určitě se mi to taky hodí. Díky. Jack 02.06.2007 11:52	Jack	02.06.2007 11:52
CSV je obyčejný textový soubor, co řádek v souboru to řádek tabulky. A hodnoty (buňky) jsou odděleny… host 02.06.2007 16:43	host	02.06.2007 16:43
Úžasné, děkuji Hoste za rady. Tímto dotaz považuji za vyřízený. poslední Jack 03.06.2007 10:57	Jack	03.06.2007 10:57

Výstup má být na obrazovku? Jinak by se nabízela možnost, uložit hodnoty do txt souboru ve formátu CSV (hodnoty oddělené čárkou/středníkem) a pak si jej otevřít v Excelu, kde už je hračka dodat grafickou úpravu, vygenerovat graf, doplnit výpočty, atd...

Výstup měl být prostřednictvím proměnné do reportu. Nakonec jsem to vyřešil takto (třeba je to nestandardní, ale funguje):

sub VypRRT()
Dim i
Dim Report (100)
Dim FullReport
....
Set Peaks = CDS.Peaks(WhichTrace, cNamedDetPeaks + cDetUnnamedPeaks)
For i = 1 to Peaks.Count
	Set Peak = Peaks.PeakIndex(i)
	Peak.GetResult cPeakRetentionTime, RT
	Peak.GetResult cPeakArea, Area
	Peak.GetResult cPeakHeight, Height
	Peak.GetResult cPeakAreaPercent, AreaPercent
	Peak.GetResult cPeakName, PeakName
	Report(i)=Chr(9) & i & Chr(9) & Round(RT,3) & Chr(9) & Round(RT/RefRT,3) & Chr(9) &  _ 
Round(Area,0) & Chr(9) & Round(Height,2) & Chr(9) & Round(AreaPercent,5) & Chr(9) & _
PeakName & Chr(13) & Chr(10)
	'One "line" per peak
next

For i=1 to peaks.count
	FullReport=FullReport + Report (i)
next 
CDS.SetSystemWideResult FullReport 'tohle zpřístupní proměnnou FullReport pro vložení do reportu
FullReport = ""
End Sub

Jakýkoliv komentář k nevýhodám a chybám vítám.

Hoste, prosím, nakopni mě jak vyexportovat výstup do CSV. Určitě se mi to taky hodí. Díky.

CSV je obyčejný textový soubor, co řádek v souboru to řádek tabulky. A hodnoty (buňky) jsou odděleny čárkamí (případně středníky - dle verze Excelu)

Obsah souboru pak vypadá např. takto:

Jméno,Příjmení,Adresa
Jan,Novák,Praha 10
Petr,Ducháč,Kotěhůlky
Alena,Jirmanová,Bratislava

Excel si pak tento soubor otevře a obsažená data umístí do buňek.

Ukázka kódu (převede sloupce oddělené tabulátorem nebo mezerami na CSV soubor s hodnotami oddělenými čárkami):
http://www.planet-source-code.com/vb/scripts/ShowCo de.asp?txtCodeId=1425&lngWId=1

Úžasné, děkuji Hoste za rady.

Tímto dotaz považuji za vyřízený.

Zpět do poradny Odpovědět na původní otázku Nahoru