Keskustelu: Ohjelmointikysymykset: C++: Taulukkoon tiedoston lukeminen

 readLines: proc (parm) options(main);
   dcl parm char (*) var;

   dcl in file;
   dcl i fixed bin;
   dcl line char (100) var controlled;
   dcl lines (*) char (100) var controlled;

   dcl (lbound, hbound, trim, allocation) builtin;

   ON UNDEFINEDFILE (in) begin;
     put skip list ('Can''t open file: ' || parm || ' for reading');
	 stop;
   end;

   ON ENDFILE (in) goto eof;


   open file(in) title (parm || ', type (text), recsize (100)') input;

   do forever;
     allocate line;
     get file (in) edit (line) (L);
   end;

  eof:
   close file(in);

   allocate lines(allocation(line));
   do i = allocation(line) to 1 by -1;
     lines(i) = line;
	 free line;
   end;

   do i = lbound(lines) to hbound(lines);
     put skip list ( 'line:'|| trim(i) || ': ' || trim(lines(i)) );
   end;
 end readLines;

#include <iostream>
#include <vector>
#include <string>
#include <fstream>


int main(int argc, char **argv){
	// Jos ohjelmalle on annettu parametri niin ajetaan ohjelma muuten tulostetaan virhe :(
	if(argc == 2){
		// Alustellaan muutamat muuttujat
		std::string rivi = "";
		// nimet-taulukko (vektori)
		std::vector<std::string> nimet;

		// Tässä avataan itse tiedosto tutustu C++ refrenssiin
		std::ifstream tiedosto(argv[1]);

		// Jos tiedosto on auki niin...
		if(tiedosto.is_open()){
			// Luetaan tiedostoa niin kauan kun rivejä riittää tai ei tapahdu jotain muuta hasardia.
			while(tiedosto.good()){
				// Luetaan rivi
				std::getline(tiedosto, rivi);
				// Tunkataan rivi taulukkoon
				nimet.push_back(rivi);
			}
			// Kaikki rivit on nyt luettu joten voidaan käyttää aineistoa.
			// Esim tulostamalla ne:
			for(unsigned int i=0; i<nimet.size(); i++){
				std::cout << "nimet[" << i << "] = " << nimet[i] << std::endl;
			}
			return 0;
		}else{
			std::cout << "Tiedoston avaaminen ei onnistunut" << std::endl;
		}
		tiedosto.close();
	}else{
		std::cout << "Anna tiedostonimi" << std::endl;
		return -1;
	}
}

//VC++ 6.0
#include <string>
#include <iostream>
#include <fstream>
#include <sstream>

using namespace std;

bool taulukoi_nimet(char* filename);
string * Nimi; int koko;

int main()
{
	if(taulukoi_nimet("nimet.dat"))
		for(int i=0;i<=koko;i++)
			cout << Nimi[i] << endl;

	Nimi = NULL;
	return 0;
}

bool taulukoi_nimet(char* filename)
{
	ifstream file; bool palaute;
	file.open(filename, ios::in | ios::binary);

	if(file.is_open())
	{
		ostringstream oss; oss << file.rdbuf();
		string str = oss.str(); oss.clear();

		for (size_t i=0;i<str.length();i++)
			if(str.substr(i, 1) == "\n") koko++;

		Nimi = new string[koko]; file.close();
		char * temppi = (char *)str.c_str();
		char * rivi = strtok(temppi, "\n");
		int laskuri = 0; size_t found; string key("\r");

		while(rivi != NULL)
		{
			Nimi[laskuri] = ((string)rivi);
			found=Nimi[laskuri].rfind(key);
			if (found!=string::npos)
			Nimi[laskuri].replace(found, key.length(), "");
			laskuri++; palaute = true;
			rivi = strtok(NULL, "\n");
		}

		str.erase(); delete [] rivi; temppi = NULL;
	}

	return palaute;
}

//VC++ .NET
using namespace System;
using namespace System::IO;

int main(array<System::String^> ^args)
{
        cli::array<System::String^>^ Nimi;
        StreamReader ^ sr = gcnew StreamReader("nimet.dat");
        Nimi = sr->ReadToEnd()->
        Replace(char("\r"),(char)"")->Split((char)"\n");
        sr->Close(); sr = nullptr;

        for(int i=0;i<Nimi->Length;i++)
        {
            Console::WriteLine(Nimi[i]);
        }

        Console::WriteLine("Press any key to continue...");
        Console::ReadKey(true);

        delete [] Nimi; Nimi = nullptr; return 0;

}

format PE CONSOLE
include 'win32a.inc'
SEEK_END        equ     2

section '.flat' code data import readable executable writeable
  library msvcrt,'msvcrt.dll'
  import msvcrt,\
         fopen,'fopen', fclose,'fclose', fread,'fread',\
         fseek,'fseek', ftell,'ftell', rewind,'rewind',\
         printf,'printf', malloc,'malloc', free,'free',\
         exit,'exit'

Nimi    dd      0

entry $ ; open file
        xor ebx, ebx            ; file handle
        call @f                 ; push offset ASCII 'rb' to the stack
        db 'r',0
@@:     call @f
        db 'nimet.dat',0
@@:     call [fopen]
        add esp, 8h             ; __cdecl
        test eax, eax
        xchg eax, ebx
        jz .finish

        ; obtain file size
        ccall [fseek], ebx, 0, SEEK_END
        ccall [ftell], ebx
        inc eax
        push eax
        ccall [rewind], ebx

        ; allocate memory for the file and read it
        call [malloc]
        mov edi, eax
        pop esi                 ; filesize
        ccall [fread], edi, 1, esi, ebx
        test eax, eax
        jz .finish              ; failure ;_;
        mov esi, eax
        mov byte [edi+eax], 0h  ; NULL-terminate

        ; count lines (result: edx)
        push 1                  ; shorter than mov edx, 1 ;)
        pop edx
        push edi
        mov ecx, esi
        mov al, 0ah             ; "\n"
@@:     repnz scasb
        jnz @f
        inc edx
        jmp @b
@@:     pop edi

        ; allocate memory for ptrs
        push edx
        shl edx, 2
        ccall [malloc], edx
        mov [Nimi], eax
        pop edx                 ; line count

        ; store ptrs to names and substitute newlines with NULLs
        push edx
        push edi
        mov [eax], edi
        mov esi, eax
        jmp @f
.next:  add esi, 4
        mov al, 0ah
        repnz scasb
        mov byte [edi-1], 0
        mov [esi], edi
@@:     dec edx
        jnz .next
        pop edi

        ; print dem names. note [esp] == linecount
        mov esi, [Nimi]
.namef: lodsd
        push eax
        call @f
        db '%s',0dh,0ah,0
@@:     call [printf]
        add esp, 8h
        dec dword [esp]
        jnz .namef
        pop eax

        ; clean exit
.finish:mov eax, [Nimi]         ; free pointers
        test eax, eax
        jz @f
        ccall [free], eax
@@:     test edi, edi           ; and file contents
        jz @f
        ccall [free], edi
@@:
        or ebx, ebx             ; close handle
        jz @f
        ccall [fclose], ebx
@@:     push 0
        call [exit]

#include <deque>
#include <fstream>
#include <iostream>
#include <string>

using namespace std;

deque<string> lue_nimet(istream &is);

int main()
{
  ifstream tiedosto("nimet.dat");
  deque<string> nimet = lue_nimet(tiedosto);

  for (size_t i = 0; i < nimet.size(); ++i) cout << nimet[i] << "\n";

  return 0;
}