VBA (Word) - operacje na "stringach"

[Pawel]

Tytuł brzmi bardzo przyjemnie.. ale do rzeczy:
Mam do dyzpozycji skopiowany tekst z pliku word(taka dosc zawiła tabela worda)
Jakimi funkcjami dobrać się do tego obiektu String ? Chodzi o to abym mógł w
pętlach dojść do każdej literki, cyferki, znaku; następnie poprzez
porownywanie do pewnych ciągów wyrazowych wyłapywać ważne dla mnie wartości..

W VBA raczkuje, pamietam jak przez mgłe że kiedyś jak bawiłem się c++ (W
Borland Builder) mialem cos w stylu DanyString[i] co odpowiadalo i-tej
literze stringu .. Proszę o tylko nakierowanie czego śzukać .. trochę
pogrzebałem w helpie ale nie napotkałem nic...

Pozdrawiam Paweł

[Piotr Lipski]

Post by Pawel
Tytuł brzmi bardzo przyjemnie..

O ile nie są obsrane, rzecz jasna.

Post by Pawel
Mam do dyzpozycji skopiowany tekst z pliku word(taka dosc zawiła tabela worda)
Jakimi funkcjami dobrać się do tego obiektu String?

Ogólnie:

Mid("dupa", 2, 1) = "u"
Mid("alamakota", 4, 2) = "ma"
InStr(1, "jaś fasola", "ola") = 8
InStr(1, "abcd", "e") = 0
InStr(3, "abcdaba", "ab") = 5
Left("dupa", 3) = "dup"
Right("siałababamak", 4) = "bamak"
Split("dupa;jasio;siedem;czajnik", ";")(2) = "siedem"
Split("jeden-dwa-trzy-cztery", "-")(0) = "jeden"
Split(Split("dupa;jasio;stasio-ptasio", ";")(1), "s")(0) = "ja"
Join(Array("du", "pa"), "r") = "durpa"
Join(Array("du", "pa", "ja", "sio"), "-") = "du-pa-ja-sio"
"du" & "pa" = "dupa"
"siedem" & " " & "krasnali" = "siedem krasnali"
StrReverse("xhejn") = "njehx"

I tak dalej...

[jacek]

Post by Piotr Lipski
Mid("dupa", 2, 1) = "u"
Mid("alamakota", 4, 2) = "ma"
InStr(1, "jaś fasola", "ola") = 8
InStr(1, "abcd", "e") = 0
InStr(3, "abcdaba", "ab") = 5
Left("dupa", 3) = "dup"
Right("siałababamak", 4) = "bamak"
Split("dupa;jasio;siedem;czajnik", ";")(2) = "siedem"
Split("jeden-dwa-trzy-cztery", "-")(0) = "jeden"
Split(Split("dupa;jasio;stasio-ptasio", ";")(1), "s")(0) = "ja"
Join(Array("du", "pa"), "r") = "durpa"
Join(Array("du", "pa", "ja", "sio"), "-") = "du-pa-ja-sio"
"du" & "pa" = "dupa"
"siedem" & " " & "krasnali" = "siedem krasnali"
StrReverse("xhejn") = "njehx"
I tak dalej...

To tylko ogolnie, a bardziej szczegolowo nie moglbys?;)

[Piotr Lipski]

Post by jacek
To tylko ogolnie, a bardziej szczegolowo nie moglbys?;)

Znaczy się że jak, dupę Jasia mam opisać ze strzegułami(*), podręcznik
siania maku przez babę czy może rozłożyć na czynniki pierwsze kota Ali?

(*)
- Jak się pisze, "szczegóły" czy "strzeguły"?
- Napisz "detale"...
(C) A.S.

[Maciej Tokarz]

opisz stringi Jasia :-)

[Maciej Tokarz]

Post by Piotr Lipski
- Jak się pisze, "szczegóły" czy "strzeguły"?
- Napisz "detale"...

ktoś powiedział: "nie wiesz jak napisać wtorek??? Napisz drugi dzień
tygodnia ;-)"

[pawel]

Post by Piotr Lipski
Mid("dupa", 2, 1) = "u"
Mid("alamakota", 4, 2) = "ma"

(...)

Post by Piotr Lipski
"siedem" & " " & "krasnali" = "siedem krasnali"
StrReverse("xhejn") = "njehx"

Dzięki za te "ogólniki"

Mam teraz taki problem, nie chce produkować nowych wątków więc może ktoś
zauważy tutaj pytanie:
String jaki dostaje na wyjściu ma między innymi taką postać

" tekst tekstserii
20



 6,4"

Chodzi o te "kwadraciki" ... co musze replace w stringu aby znikły ? albo
jakaś konwersja ? Co to za znak .. przeleciałem tablice Ascii szczególnie kody
9 do 13 ale to nie to .. nie wynika z tego iż znak końca lini, mimo tego po
wklejeniu tutaj przełamało mi ...

[Piotr Lipski]

On 3 Jan 2007 14:21:32 +0100, pawel wrote:

[...]

Post by pawel
9 do 13 ale to nie to .. nie wynika z tego iż znak końca lini, mimo tego po
wklejeniu tutaj przełamało mi ...

Może: F1(vbCrLf)
?

[Skylla]

Post by Pawel
Mam do dyzpozycji skopiowany tekst z pliku word(taka dosc zawiła tabela worda)
Jakimi funkcjami dobrać się do tego obiektu String ? Chodzi o to abym mógł w
pętlach dojść do każdej literki, cyferki, znaku; następnie poprzez
porownywanie do pewnych ciągów wyrazowych wyłapywać ważne dla mnie wartości..
W VBA raczkuje, pamietam jak przez mgłe że kiedyś jak bawiłem się c++ (W
Borland Builder) mialem cos w stylu DanyString[i] co odpowiadalo i-tej
literze stringu .. Proszę o tylko nakierowanie czego śzukać .. trochę
pogrzebałem w helpie ale nie napotkałem nic...

Jeśli to ma być w VBA Worda, to kolekcje: Words, Charcters, Sentences,
Paragrahs ... itd...
S.

[pxd74]

Post by Pawel
Mam do dyzpozycji skopiowany tekst z pliku word(taka dosc zawiła tabela
worda) Jakimi funkcjami dobrać się do tego obiektu String ? Chodzi o to
abym mógł w pętlach dojść do każdej literki, cyferki, znaku; następnie
poprzez porownywanie do pewnych ciągów wyrazowych wyłapywać ważne dla
mnie wartości..
W VBA raczkuje, pamietam jak przez mgłe że kiedyś jak bawiłem się c++ (W
Borland Builder) mialem cos w stylu DanyString[i] co odpowiadalo i-tej
literze stringu .. Proszę o tylko nakierowanie czego śzukać .. trochę
pogrzebałem w helpie ale nie napotkałem nic...

Nie wiem czy dobrze Ciebie zrozumiałem i robisz to VBA dla Worda. Jesli tak,
to może lepiej zassysać pojedyncze teksty z komórek tabeli wjakiejśc pętli
albo dwóch.