Hello everybody
If i have two .txt files
First contains a list of words each in new line :
Similar to this
One
This
Hello
Two
Second contains a long text:
a sample part of the second file:
INPUT STRING:
LOOK-UP WORD: tnZm
SOLUTION 1: (tanaZ~ama) [tanaZ~am_1] tanaZ~am/VERB_PERFECT+a/PVSUFF_SUBJ:3MS
(GLOSS): + be organized/be regulated + he/it <verb>
SOLUTION 2: (tanoZim) [naZam-i_1] ta/IV3FS+noZim/VERB_IMPERFECT
(GLOSS): it/they/she + arrange/organize/compose +
SOLUTION 3: (tunaZ~im) [naZ~am_1] tu/IV3FS+naZ~im/VERB_IMPERFECT
(GLOSS): it/they/she + arrange/organize/regulate +
INPUT STRING:
LOOK-UP WORD: jAmEp
SOLUTION 1: (jAmiEap) [jAmiE_1] jAmiE/NOUN+ap/NSUFF_FEM_SG
(GLOSS): + comprehensive/extensive + [fem.sg.]
SOLUTION 2: (jAmiEap) [jAmiEap_1] jAmiE/NOUN+ap/NSUFF_FEM_SG
(GLOSS): + university/league + [fem.sg.]
I need to replace each word between the brackets in the second file with the words in the first file , except the word (GLOSS) will not be changed
Means that the word the second file will be changed to
INPUT STRING:
LOOK-UP WORD: tnZm
SOLUTION 1: (one) [tanaZ~am_1] tanaZ~am/VERB_PERFECT+a/PVSUFF_SUBJ:3MS
(GLOSS): + be organized/be regulated + he/it <verb>
SOLUTION 2: (this) [naZam-i_1] ta/IV3FS+noZim/VERB_IMPERFECT
(GLOSS): it/they/she + arrange/organize/compose +
SOLUTION 3: (Hello) [naZ~am_1] tu/IV3FS+naZ~im/VERB_IMPERFECT
(GLOSS): it/they/she + arrange/organize/regulate +
INPUT STRING:
LOOK-UP WORD: jAmEp
SOLUTION 1: (two) [jAmiE_1] jAmiE/NOUN+ap/NSUFF_FEM_SG
(GLOSS): + comprehensive/extensive + [fem.sg.]
how can i change this code to help me:
VB Code:
Open "C:\second.txt" For Input As #1 tmp = Split(Input(LOF(1), 1), vbCrLf) Close #1 For X = 0 To UBound(tmp) If UCase(Left(tmp(X), 10)) = " SOLUTION" Then Words = Split(tmp(X), "(") 'what i need then![]()




Reply With Quote