Forum » Programiranje » [VBA] Prenos rtf kodiranja iz Excela v Word in nazaj
[VBA] Prenos rtf kodiranja iz Excela v Word in nazaj
imagodei ::
Imam za popravit kakih 12.000 vrstic v Excelu, kjer je v polju zapisan tekst z rft formatingom. Npr:
{\rtf1\ansi\deflang1060\ftnbj\uc1
{\fonttbl{\f0 \froman \fcharset0 Times New Roman;}{\f1 \fswiss \fcharset238
Arial;}}
{\colortbl ;\red255\green255\blue255 ;\red0\green0\blue0 ;}
{\stylesheet{\fs24\cf2\cb1 Normal;}{\cs1\cf2\cb1 Default Paragraph Font;}}
\paperw11908\paperh16833\margl1800\margr1800\margt1440\margb1440\headery720\footery720\deftab720\formshade\aendnotes\aftnnrlc\pgbrdrhead\pgbrdrfoot
\sectd\pgwsxn11908\pghsxn16833\marglsxn1800\margrsxn1800\margtsxn1440\margbsxn1440\headery720\footery720\sbkpage\pgncont\pgndec
\plain\plain\f1\fs24\pard TPR 0160 000\par IPR 0160 000\par OB-R-02-28\par}
Od česar je potem dejansko uporabno le
TPR 0160 000
IPR 0160 000
OB-R-02-28
Če tisto klobaso od rtf-ja shranim z notepadom v prazen dokument in ga poimenujem Nekaj.rtf ter odprem z Wordom, mi zadevo pokaže čisto lepo. Zanima me, če je varianta, da bi prenesel tekst v Word z VBA in potem nazaj v Excel vrnil zgolj tekst brez formatinga?
Vse skupaj se da tudi parsat, ampak zgoraj prikazan format ni edini in je težko zaobjet vse primere. Na koncu pa vseeno ostane še par cvetk, ki jih je treba tako ali drugače na roke popravit.
Any idea?
{\rtf1\ansi\deflang1060\ftnbj\uc1
{\fonttbl{\f0 \froman \fcharset0 Times New Roman;}{\f1 \fswiss \fcharset238
Arial;}}
{\colortbl ;\red255\green255\blue255 ;\red0\green0\blue0 ;}
{\stylesheet{\fs24\cf2\cb1 Normal;}{\cs1\cf2\cb1 Default Paragraph Font;}}
\paperw11908\paperh16833\margl1800\margr1800\margt1440\margb1440\headery720\footery720\deftab720\formshade\aendnotes\aftnnrlc\pgbrdrhead\pgbrdrfoot
\sectd\pgwsxn11908\pghsxn16833\marglsxn1800\margrsxn1800\margtsxn1440\margbsxn1440\headery720\footery720\sbkpage\pgncont\pgndec
\plain\plain\f1\fs24\pard TPR 0160 000\par IPR 0160 000\par OB-R-02-28\par}
Od česar je potem dejansko uporabno le
TPR 0160 000
IPR 0160 000
OB-R-02-28
Če tisto klobaso od rtf-ja shranim z notepadom v prazen dokument in ga poimenujem Nekaj.rtf ter odprem z Wordom, mi zadevo pokaže čisto lepo. Zanima me, če je varianta, da bi prenesel tekst v Word z VBA in potem nazaj v Excel vrnil zgolj tekst brez formatinga?
Vse skupaj se da tudi parsat, ampak zgoraj prikazan format ni edini in je težko zaobjet vse primere. Na koncu pa vseeno ostane še par cvetk, ki jih je treba tako ali drugače na roke popravit.
Any idea?
- Hoc est qui sumus -
Mavrik ::
RTF je hudo preprost format in odstranit ven kontrolne znake je precej preprosto. Ne vem zakaj bi kompliciral z Wordom.
The truth is rarely pure and never simple.
imagodei ::
@Tut,
Tam so se pač znašli podatki po izvozu iz SQL tabele.
@Mavrik,
OK, so how do I do it?
Tam so se pač znašli podatki po izvozu iz SQL tabele.
@Mavrik,
OK, so how do I do it?
- Hoc est qui sumus -
Mavrik ::
1.) Pogledaš si sestavo RTF formata. V bistvu je to glorificirani markup jezik, ki uporablja kontrolne kode z \ na začetku in določene segmente teksta ovite v {} oklepaje. To postrippaš in imaš tekst.
The truth is rarely pure and never simple.
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Excell pomik v celiciOddelek: Šola | 961 (775) | klemenSLO |
» | Izšel Open Office Org 3.0 (strani: 1 2 3 4 )Oddelek: Novice / Pisarniški paketi | 24626 (16164) | BlueRunner |
» | Microsoft objavil vrsto specifikacij - Word, Excel, Powerpoint, Exchange (strani: 1 2 3 4 )Oddelek: Novice / Ostala programska oprema | 18956 (13448) | gzibret |
» | Belgijska vlada sprejela OpenDocument Format za edini način komuniciranja (strani: 1 2 )Oddelek: Novice / Ostale najave | 9203 (7669) | Pithlit |
» | jebe*** šumnikiOddelek: Izdelava spletišč | 4140 (3546) | Tr0n |