My Big Problem....

[om-yousif]

first i'd like to thank all persons who helped me in my project

and i need someone help me to solve this

i have two notepad files
outfile.txt
testoutfile.txt


what i want to do is to insert some lines from outfile.txt to testoutfile.txt

Explaination:
start with outfile.txt insert every line in testoutfile.txt
if you reach the word solution skip this line in outfile.txt and skip a line in testoutfile.txt then continue inserting
do the same to the rest of lines

i attached a samlpe file to the formating of the file i need sample.txt


please help me

[opus]

Try this:

Dim DatNr1 as Integer
Dim DatNr2 as Integer
Dim strTextLine as String
Dim ret as Integer
DatNr1=FreeFile
Open "outfile.txt" For Input as DatNr1
DatNr2=FreeFile
Open "testoutfile.txt" For OutPut as DatNr2
Do While Not EOF (DatNr1)
   Input #DatNr1,strTextLine
 
   ret= Instr(1,strTextLine,"solution")
   If ret<>0 Then
      Write #DatNr2, strTextLine
   Else
      Write #DatNr2,""
   End If
Loop

Not tested!
Close #DatNr1
Close #DatNr2

[westconn1]

i ran the code i still had that i did before, the result file is attached

you must have changed the code slightly

[om-yousif]

Hi westconn1

i don't know why the code you wrote didn't work for me
i just changed the directories
i'm very upset

i don't know what to do????

[om-yousif]

opus this is what i got from your code

[om-yousif]

westconn1
i run the code again
this is what i got

(subscript out of rang)
points to this line in getnext function

ReDim Preserve arrb(i - strt - 1)

[opus]

I see the mistake.
Use this:

Dim DatNr1 As Integer
    Dim DatNr2 As Integer
    Dim strTextLine As String
    Dim ret As Integer
    DatNr1 = FreeFile
    Open "outfile.txt" For Input As DatNr1
    DatNr2 = FreeFile
    Open "testoutfile.txt" For Output As DatNr2
    Do While Not EOF(DatNr1)
       Input #DatNr1, strTextLine
 
       ret = InStr(1, LCase(strTextLine), "solution")
       If ret <> 0 Then
          Write #DatNr2, strTextLine
       Else
          Write #DatNr2,
       End If
    Loop
    Close #DatNr1
    Close #DatNr2

As I understood the task is that you want all the lines from outfile.txt exemt those that contain the word "solution", instead of those you want a empty line. However your sample.txt is looking like the outfile.txt!

[westconn1]

the last code i posted in the previous thread no longer used the getnext function
so you must be using an earlier version

check here
http://www.vbforums.com/showpost.php...6&postcount=22

[om-yousif]

opus this time the file testoutfile.txt is empty!

westconn1 i tried this code
i got the same output in case of few word
and an error pointing to this line in case of paragraphs
(subscript out of range)

Print #f1, Mid(arrsecond(i), 1, pos); arrfirst(j); Mid(arrsecond(i), pos1, Len(arrsecond(i)) - pos1 + 1) ' print the line to file, with replacement

[westconn1]

try it with the same files i was usng, these are the files i was using to write the code, the files of course came from you to start with, and process with no errors


a subscript out of range error means that one of the arrays has gone past its end, check to number of elements in each array, if the number of repacements is not enough for the number of strings to be replaced, you will get that error

[om-yousif]

westconn1
this is the output from your attached files



why???

[opus]

I Have no idea why the testoutfile.txt should be empty.
There is a mistake in the code, it uses all lines with "solution" imnstead of those without.

I changed it:

Dim DatNr1 As Integer
    Dim DatNr2 As Integer
    Dim strTextLine As String
    Dim ret As Integer
    DatNr1 = FreeFile
    Open "outfile.txt" For Input As DatNr1
    DatNr2 = FreeFile
    Open "testoutfile.txt" For Output As DatNr2
    Do While Not EOF(DatNr1)
       Input #DatNr1, strTextLine
 
       ret = InStr(1, LCase(strTextLine), "solution")
       If ret = 0 Then
          Write #DatNr2, strTextLine
       Else
          Write #DatNr2,
       End If
    Loop
    Close #DatNr1
    Close #DatNr2

the resulting file I get when using your "outfile.txt" is attached!

[westconn1]

can you post the exact code you are using, or better still your project and i will see if i can see why you are getting different result

i make a new project, copy and paste the code into it, under a command button, presto, this file

i have made no changes to the code at all, so i can not say why it is not working for you

[westconn1]

opus, you need to have the output file contain the arabic words that are in the original file, if you just print to file the arabic is translated unless you use ucode marker in the file,
as you have not opened the file with the arabic words for reading i don't see how this can work at all, though maybe i am missing something

[opus]

Good morning westconn1

Maybe I don't get it,but I was only answering the question from this threat:

what i want to do is to insert some lines from outfile.txt to testoutfile.txt

Explaination:
start with outfile.txt insert every line in testoutfile.txt
if you reach the word solution skip this line in outfile.txt and skip a line in testoutfile.txt then continue inserting
do the same to the rest of lines

Now that I looked into that other threat, it seems to me, this question doesn't give to whole picture!

[westconn1]

Now that I looked into that other threat, it seems to me, this question doesn't give to whole picture!

quite right
the suggestion here was to replace the whole line from one file with the line from the other, the original thread was to just replace a single word from a second file into the brackets in the first file, this was initially simple, except the arabic did not save in the text file, but converted into (f....??) or some such thing,

if you feel so inclined, test my code posted at the end of the other thread with the input files posted in #10 here, to see if you get the correct output, i originally wrote the code in VBA so just in case that was a problem did a new project today in vb and it all worked fine again, but as om is still having a problem it would be good if someone else can test it too

regards

[opus]

I'd guess I will see your result, probably has something to with the language settings.
Will look into it, if I find time.