OVH Cloud OVH Cloud

ouverture fichier ... à l'envers ?

3 réponses
Avatar
Bismark Prods
Bonsoir, Bonjour,

J'ai là une interrogation à priori étrange. Mais ca me rendrait extremement
service. Est-il possible découper un fichier sans l'ouvrir et ainsi pouvoir
ne lire qu'une fraction de celui ci sans avoir besoin de l'ouvrir tout
entier ? Si j'ai été clair ca sera deja pas mal ! lol

Merci

3 réponses

Avatar
François Picalausa
Bonjour/soir,

Lire le fichier sans l'ouvrir ne me semble pas vraiment possible...
L'ouverture n'est jamais que l'initialisation d'une procédure de
lecture/écriture définissant surtout l'accès à ce fichier.....
Ne pas le lire en entier est déjà plus probable...

Pour lire le second tiers d'un fichier:
Dim strBuffer As String
Dim FFN As Integer

FFN = FreeFile

Open "c:monfichier.txt" for binary As FFN
Seek FFN, Lof(FFN)3
strBuffer = String(FFN,Lof(FFN)3)
Get FFN,, strBuffer
Close FFN

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Bismark Prods" a écrit dans le message de
news:
Bonsoir, Bonjour,

J'ai là une interrogation à priori étrange. Mais ca me rendrait
extremement service. Est-il possible découper un fichier sans
l'ouvrir et ainsi pouvoir ne lire qu'une fraction de celui ci sans
avoir besoin de l'ouvrir tout entier ? Si j'ai été clair ca sera deja
pas mal ! lol

Merci


Avatar
François Picalausa
Bonjour/soir,

Sorry.. parti trop vite....

Tu peux aussi voir du côté du mappage de fichiers qui permettent d'accéder à
une partie de fichier sans se soucier du reste:
http://msdn.microsoft.com/library/en-us/fileio/base/file_mapping.asp
Mais celà requiert aussi l'ouverture du fichier...

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"François Picalausa" a écrit dans le message de
news:%
Bonjour/soir,

Lire le fichier sans l'ouvrir ne me semble pas vraiment possible...
L'ouverture n'est jamais que l'initialisation d'une procédure de
lecture/écriture définissant surtout l'accès à ce fichier.....
Ne pas le lire en entier est déjà plus probable...

Pour lire le second tiers d'un fichier:
Dim strBuffer As String
Dim FFN As Integer

FFN = FreeFile

Open "c:monfichier.txt" for binary As FFN
Seek FFN, Lof(FFN)3
strBuffer = String(FFN,Lof(FFN)3)
Get FFN,, strBuffer
Close FFN


"Bismark Prods" a écrit dans le message de
news:
Bonsoir, Bonjour,

J'ai là une interrogation à priori étrange. Mais ca me rendrait
extremement service. Est-il possible découper un fichier sans
l'ouvrir et ainsi pouvoir ne lire qu'une fraction de celui ci sans
avoir besoin de l'ouvrir tout entier ? Si j'ai été clair ca sera deja
pas mal ! lol

Merci




Avatar
Bismark Prods
Je te remercie mais le titre de ma question n'était semble-t-il pas fais
pour aider à sa compréhension !
Je veux effectivement lire qu'une partie d'un fichier. Et puisque cela n'est
possible qu'en ouvrant le fichier (un gros fichier), je désire davantage
connaitre un moyen de séparer physiquement un gros fichier en petit bloc
sans ouvrir ce dernier. Cela doit être réalisable je pense. Comme le ferais
ARJ ou PKZip ? Connais-tu le moyen d'y parvenir ?

Merci

"François Picalausa" a écrit dans le message de
news:
Bonjour/soir,

Sorry.. parti trop vite....

Tu peux aussi voir du côté du mappage de fichiers qui permettent d'accéder


à
une partie de fichier sans se soucier du reste:
http://msdn.microsoft.com/library/en-us/fileio/base/file_mapping.asp
Mais celà requiert aussi l'ouverture du fichier...

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"François Picalausa" a écrit dans le message de
news:%
> Bonjour/soir,
>
> Lire le fichier sans l'ouvrir ne me semble pas vraiment possible...
> L'ouverture n'est jamais que l'initialisation d'une procédure de
> lecture/écriture définissant surtout l'accès à ce fichier.....
> Ne pas le lire en entier est déjà plus probable...
>
> Pour lire le second tiers d'un fichier:
> Dim strBuffer As String
> Dim FFN As Integer
>
> FFN = FreeFile
>
> Open "c:monfichier.txt" for binary As FFN
> Seek FFN, Lof(FFN)3
> strBuffer = String(FFN,Lof(FFN)3)
> Get FFN,, strBuffer
> Close FFN
>
>
> "Bismark Prods" a écrit dans le message de
> news:
>> Bonsoir, Bonjour,
>>
>> J'ai là une interrogation à priori étrange. Mais ca me rendrait
>> extremement service. Est-il possible découper un fichier sans
>> l'ouvrir et ainsi pouvoir ne lire qu'une fraction de celui ci sans
>> avoir besoin de l'ouvrir tout entier ? Si j'ai été clair ca sera deja
>> pas mal ! lol
>>
>> Merci