Grazie per la tua risposta e per la collaborazione.
Vedi il problema è che oltre che eliminare le cose tra parentesi per spedire su word solo quello che non lo è, devo comunque man mano tenerlo in considerazione in modo che i comandi tra parentesi andranno a cambiare anche i font,tabulazioni ecc in word..
spero di aver spiegato meglio,
cmq ora ti scrivo il codice così come l'avevo pensato...
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph
Dim Pos As Double
Dim t As String
oWord = CreateObject("Word.Application")
oWord.Visible = True
oDoc = oWord.Documents.Add
oPara1 = oDoc.Content.Paragraphs.Add
Dim fileReader As System.IO.StreamReader
fileReader = _
My.Computer.FileSystem.OpenTextFileReader("C:\\test.txt")
Dim stringReader As String
Dim lunstr As Integer
Dim i As Integer
Dim car As String
Dim car1 As String
'leggo il file
Do Until fileReader.EndOfStream
stringReader = fileReader.ReadLine()
lunstr = Len(stringReader)
For i = 1 To lunstr
car1 = Mid(stringReader, i, 1)
If car1 = "[" Then
car = Mid(stringReader, i + 1, 2)
i = i + 3
Select Case car
Case car = "c0"
oPara1.Range.Font.Bold = False
car = ""
car1 = ""
oPara1.Range.InsertBefore(car1)
Case car = "c1"
oPara1.Range.Font.Bold = True
car = ""
car1 = ""
oPara1.Range.InsertBefore(car1)
End Select
End If
If car1 <> "" Then
'oPara1.Range.Text =
oPara1.Range.InsertSymbol(car1)
End If
Next i
Loop
Considerate che i parametri racchiusi da quadre saranno sempre 2 quindi per quello aumento i di 3.
bè cosa ne pensate? vado bene? o vado verso un vicolo ceco e ancora non me ne sono accorto?
Scusate ma poi non riesco a trovare l'istruzione per far "sparare" in word carattere per carattere. Please help!
Ultima modifica effettuata da matteo80 il 20/03/2009 alle 15:30 |