ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   open some txt files ,find text , copy the text before that to a single cell (https://www.excelbanter.com/excel-programming/334110-open-some-txt-files-find-text-copy-text-before-single-cell.html)

gus

open some txt files ,find text , copy the text before that to a single cell
 
I am trying to make a macro that open all the texts files from a specified
directory one by one.

Everytime a txt file is opened i want to search for a specified string (for
ex. PETER)
and if the string exists then all the text before this string must copied to
a empty cell at any colunm (for example c1)

Then the secont text to c2 , c3 e.t.c

lets see an example.

The text file text1.txt has the folowing text.

"sdfgdfg dfgdfgsd fghdfghfgh
fgfghdfgh gfhfghdfgh fghfdgh

fghfdgh gfhdfgh fghfgh 54645645 5464546
gfhdfghfg
gfhfghj vcbncvbn hfgh rthyrtyertyrty
greece summertime dfrdfg errtt retyrty fdgsdfg gh
sdfghfgh dfghdfgh dfghdfgh
fghdfgh
fghdf
fghfhgffghdfhfgh fghfgh dfghdfghdfgh"

I search the string "greece" .
Tha macro finds it and then copies all the text before and up to this string
to the cell a1.

Then comes the secont txt file , then the third etc.

Thanks






Tom Ogilvy

open some txt files ,find text , copy the text before that to a single cell
 
Is the text in multiple cells? If in multiple cells, is it in multiple
columns? Do you want to concatenate all the text and put it in a single
cell? Where is this single cell located?

--
Regards,
Tom Ogilvy


"gus" wrote in message
...
I am trying to make a macro that open all the texts files from a specified
directory one by one.

Everytime a txt file is opened i want to search for a specified string

(for
ex. PETER)
and if the string exists then all the text before this string must copied

to
a empty cell at any colunm (for example c1)

Then the secont text to c2 , c3 e.t.c

lets see an example.

The text file text1.txt has the folowing text.

"sdfgdfg dfgdfgsd fghdfghfgh
fgfghdfgh gfhfghdfgh fghfdgh

fghfdgh gfhdfgh fghfgh 54645645 5464546
gfhdfghfg
gfhfghj vcbncvbn hfgh rthyrtyertyrty
greece summertime dfrdfg errtt retyrty fdgsdfg gh
sdfghfgh dfghdfgh dfghdfgh
fghdfgh
fghdf
fghfhgffghdfhfgh fghfgh dfghdfghdfgh"

I search the string "greece" .
Tha macro finds it and then copies all the text before and up to this

string
to the cell a1.

Then comes the secont txt file , then the third etc.

Thanks








gus

open some txt files ,find text , copy the text before that to a single cell
 
The text string i am searcing is located in all the text Files
And is a number that defines what this text file is (for example (law 324)
, (law 456)
I am trying to make make an indexer for these txt files
An indexer that describe that at <txt1.txt file is the Law 324 , at
<txt2.file is the Law456 e.t.c
Thanks


"Tom Ogilvy" wrote in message
...
Is the text in multiple cells? If in multiple cells, is it in multiple
columns? Do you want to concatenate all the text and put it in a single
cell? Where is this single cell located?

--
Regards,
Tom Ogilvy


"gus" wrote in message
...
I am trying to make a macro that open all the texts files from a
specified
directory one by one.

Everytime a txt file is opened i want to search for a specified string

(for
ex. PETER)
and if the string exists then all the text before this string must copied

to
a empty cell at any colunm (for example c1)

Then the secont text to c2 , c3 e.t.c

lets see an example.

The text file text1.txt has the folowing text.

"sdfgdfg dfgdfgsd fghdfghfgh
fgfghdfgh gfhfghdfgh fghfdgh

fghfdgh gfhdfgh fghfgh 54645645 5464546
gfhdfghfg
gfhfghj vcbncvbn hfgh rthyrtyertyrty
greece summertime dfrdfg errtt retyrty fdgsdfg gh
sdfghfgh dfghdfgh dfghdfgh
fghdfgh
fghdf
fghfhgffghdfhfgh fghfgh dfghdfghdfgh"

I search the string "greece" .
Tha macro finds it and then copies all the text before and up to this

string
to the cell a1.

Then comes the secont txt file , then the third etc.

Thanks











All times are GMT +1. The time now is 08:54 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com