Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno 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
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
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
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
Úžasné, děkuji Hoste za rady. Tímto dotaz považuji za vyřízený. poslední
Jack 03.06.2007 10:57
Jack

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.

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

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