Dodavanje zadatog karaktera na pocetku svakog reda

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da ne pretrpavam naslov nije samo dodavanje na pocetku reda, vec ima jos nesto, a da bih objasnio sta zelim najbolje je da dam plastican primer.

Imam tekstualni fajl u sledecoj formi (parafraziram):

windows 10 - najnoviji microsoftov operativni sistem
kameni ugalj - ima izuzetno kaloricnu vrednost
masina za mlevenje mesa - potreba svake domacice

I tako 100 i kusur redova...

Ono sto ja zelim da dobijem je

[b]windows 10[/b] - najnoviji microsoftov operativni sistem
[b]kameni ugalj[/b] - ima izuzetno kaloricnu vrednost
[b]masina za mlevenje mesa[/b] - potreba svake domacice

Znaci treba mi neka skripta (bat, vbs) ili neki macro za word koji ce to automatski da izvrsi - da "wrapuje" tekst (na gore opisan nacin) koji je uvek na pocetku reda/recenice i nakon koga uvek ide crtica.

• 1Ovo se svidja korisniku: m4rk0
  
  Registruj se da bi pohvalio/la poruku!

Mislim da je neku aplikaciju Srki94 pravio za potrebe potforuma Igre (isto problem formatiranja).

• 2Ovo se svidja korisnicima: Srki94, Fil
  
  Registruj se da bi pohvalio/la poruku!

Nasao sam resenje, nije bas elegantno ali radi

1. U command promptu sam kucao sledecu komandu:

(for /f "delims=" %L in (staralista.txt) do @echo [b] %L)> novalista.txt

gde je staralista.txt naziv tekstualnog fajla koji obradjujem a novalista.txt gotov izlazni fajl u kome je na pocetku svake recenice dodat karakter
[b]

2. Tekst sam kopirao u word i pomocu ctrl+h izvrsio zamenu na sledeci nacin



Naravno, ako neko ima neki jos brzi naci nek napise slobodno.

• 1Ovo se svidja korisniku: Fil
  
  Registruj se da bi pohvalio/la poruku!

Fil ::Mislim da je neku aplikaciju Srki94 pravio za potrebe potforuma Igre (isto problem formatiranja).

Jok, to su samo šeme bile za uputstva i opise.

Ja sam u ovoj situaciji kombinovao Notepad ++, tastere gaming miša, makroe i find & replace

Ali opet, Markov način je brži od toga jer sam ja morao da selektujem reč i stisnem dugme da bih dodao tagove.

• 7Ovo se svidja korisnicima: Srki94, Ričard, m4rk0, E.L.I.T.E., Aco, Fil, SlobaBgd
  
  Registruj se da bi pohvalio/la poruku!

Drag & drop file-a na donju skriptu...

Umesto - može da koristi bilo koje znakove i moguće je uneti tagove (stringove koje treba koristiti). Default je ovo što je Marko tražio...

Odradiće i neko sitno formatiranje:

adsadsa-dadadas
asda -daadsa
adsa- asda

adsadsa - dadadas
asda - daadsa
adsa - asda


Set objFSO = CreateObject("Scripting.FileSystemObject")
 
 
If WScript.Arguments.length = 0 Then
  MsgBox "Drag and drop a file"
  WScript.Quit
End If

sFileToFix = WScript.Arguments(0)

If Not objFSO.FileExists(sFileToFix) Then
  MsgBox "This is not a file!"
  WScript.Quit
End If
 
Set oOldFile = objfso.OpenTextFile(sFileToFix, 1)
Set oNewFile = objfso.OpenTextFile(sFileToFix & " - new.txt", 2, True)

sSeparator = InputBox("Text separator:", "", "-")

sTag = InputBox("Tag to use on the left side:", "", "[b]")

sTag2 = InputBox("Tag to use on the right side:", "", "[/b]")


If Not oOldFile.AtEndOfStream Then
 
  While Not oOldFile.AtEndOfStream
 
    sLine = oOldFile.ReadLine
    sNewLine = sLine
    nScriptStartPos = InStr(1, sLine, sSeparator, vbTextCompare)
    If nScriptStartPos > 0 Then
      sNewLine = sTag & Trim(Left(sLine, nScriptStartPos - 1)) & sTag2 & " " & sSeparator & " " & Trim(Right(sLine, Len(sLine) - nScriptStartPos - Len(sSeparator) + 1))
    End If

    If oOldFile.AtEndOfStream Then
      oNewFile.Write(sNewLine)
    Else
      oNewFile.WriteLine(sNewLine)
    End If
 
  Wend
 
End If
 
oNewFile.Close
oOldFile.Close

 
MsgBox "Done!"

• 1Ovo se svidja korisniku: Fil
  
  Registruj se da bi pohvalio/la poruku!

@dr_Bora
Bravo care

• 3Ovo se svidja korisnicima: Fil, Srki94, SlobaBgd
  
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

@dr_Bora kao i inače ovakve probleme rješava VBS skriptama bez problema
@m4rk0 inače da sam ja imao taj problem pokušao bih ga riješiti u Excelu, zato postavljam file rješenje koje može poslužiti za druge stvari (idejno)

1. Konvertirao bih tekst u stupce da razdvojim rečenicu u blokove
2. Dodao bih karaktere
3. Sve spojio sa Concatenate funkcijom

u prilogu primjer datoteke.
pozdrav

[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ne razumem zasto toliko komplikujete u vba je to mnogo lakse:

Evo na brzinu napravite makro sa record, znak za novi red zamenite sa znak za novi red + [b] i snimite taj kod i kliknite na stop. Dobicete sve nove redove zamenjene sa novi red+[b]. Samo prvi red nije zamenjen, rucno uradite. Pozdrav

evo koda:

Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "^p[b]"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub