Jeigu yra būdas padaryti geriau, atrask jį. T. A. Edison

Sveiki, Svečias
Prisijungimo vardas: Slaptažodis: Prisiminti mane
  • Puslapis:
  • 1
  • 2
  • 3

TEMA: Excel telefono nr tvarkymas

Excel telefono nr tvarkymas prieš 4 m. 1 sav. #7

  • ZygD
  • ZygD avataras
  • Neprisijungęs
  • Auksinis narys
  • Žinutės: 197
  • Gauta padėka 60
  • Reputacija: 20
Dar vienas variantas.

1. Susikuri tuščią .txt failą.
2. Atsidarai ir copy paste šitą kodą:
Set wShell=CreateObject("WScript.Shell")
Set oExec=wShell.Exec("mshta.exe ""about:<input type=file id=FILE><script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>""")
sFileSelected = oExec.StdOut.ReadLine
 
Const ForReading = 1
Const ForWriting = 2
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(sFileSelected, ForReading)
Set re = New RegExp
 
With re
    .Pattern    = "(Tel1: )(\d*)( Tel2: )(\d*)"
    .IgnoreCase = False
    .Global     = True
End With
 
Do Until objFile.AtEndOfStream
    sLine = objFile.ReadLine
    If re.Test(sLine) Then
	sNewLine = re.replace(sLine,"$2")
    else
	sNewLine = sLine
    end if
    sNewText = sNewText & sNewLine & vbCrLf
Loop
 
objFile.Close
 
Set objFile = objFSO.OpenTextFile(sFileSelected, ForWriting)
objFile.Write sNewText
objFile.Close

3. Išsaugai failą su galūne (extension) .vbs
4. Įjungi failą, pasirenki savo .csv
Paskutinis taisymas: prieš 4 m. 1 sav. nuo ZygD.
Administratorius uždraudė viešą pranešimų rašymą.

Excel telefono nr tvarkymas prieš 4 m. 1 sav. #8

  • tmasianas
  • tmasianas avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 7
  • Reputacija: 0
Viskas puiku tik vienintele problema kad pirmas nulis dingtsa :/
Administratorius uždraudė viešą pranešimų rašymą.

Excel telefono nr tvarkymas prieš 4 m. 1 sav. #9

  • tmasianas
  • tmasianas avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 7
  • Reputacija: 0
Viskas puiku bet pirma nulis dingsta :/
dll parašė:
Tai tuomet pagelbės Data -> Text to Columns komanda. Reikėtų atlikti tokius veiksmus:

1) Pažymėti stulpelį su duomenis (tais telefono numeriais);
2) Vykdyti komandą Data -> Text to Columns;
3) Atsidariusiame lange pasirinkti "Delimited" ir spausti Next;
4) Antrame žingsnyje pažymėti "Space" (apačioje pamatysi kaip sudalina duomenis į stulpelius - reikalingas tik antras)ir spausti Next;
5)Trečiame žingsnyje reikia pažymėti pirmą, trečią ir ketvirtą stulpelius ir paspaudus ant kiekvieno uždėti "varnelę" ties "Do not import column (skip)". Taip liks tik antras stulpelis su tau reikalingais duomenimis. Spaudžiam Finish ir viskas.
Administratorius uždraudė viešą pranešimų rašymą.

Excel telefono nr tvarkymas prieš 4 m. 1 sav. #10

  • dll
  • dll avataras
  • Neprisijungęs
  • Moderatorius
  • Žinutės: 194
  • Gauta padėka 47
  • Reputacija: 20
tmasianas parašė:
Viskas puiku tik vienintele problema kad pirmas nulis dingtsa :/

Paskutiniame žingsnyje ant antro stulpelio, kurį palieki importuoti, Column data format pažymėk "Text".

Rezultato formatas taps tekstinis ir nuliai liks - tik liks tau atviras klausimas kaip tai interpretuos tas kitas failas ar programa, kur ten importuoji vėliau tuos duomenis.
Administratorius uždraudė viešą pranešimų rašymą.

Excel telefono nr tvarkymas prieš 4 m. 1 sav. #11

  • tmasianas
  • tmasianas avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 7
  • Reputacija: 0
Bandziau bet nepadeda nes issaugojus ir is naujo atidarius dingsta pirmi nuliai :/
Administratorius uždraudė viešą pranešimų rašymą.

Excel telefono nr tvarkymas prieš 4 m. 1 sav. #12

  • ZygD
  • ZygD avataras
  • Neprisijungęs
  • Auksinis narys
  • Žinutės: 197
  • Gauta padėka 60
  • Reputacija: 20
tmasianas parašė:
Bandziau bet nepadeda nes issaugojus ir is naujo atidarius dingsta pirmi nuliai :/

Jei atsidarai per Excelį, tai nulių niekada nematysi, nes pas tave .csv failas, o ne .xls / .xslx . Bandyk atsidaryti per text editorių.
Jei ten yra nuliai, reiškia jie yra!
O jei per text editor nulių nerodo, reiškia jų nėra.
Siūlau bandyti importuoti į tą sistemą, kurią minėjai prieš tai. Gali būti, kad ji supras, kad nuliai yra priekyje, kai tuo tarpu Excel nesupranta.

Panaudojus mano siūlytą sprendimą nuliai priekyje tikrai lieka, bet jų nerodo, kai failą atsidarai per Excelį. Manau čia gali būti tas pats.
Administratorius uždraudė viešą pranešimų rašymą.
  • Puslapis:
  • 1
  • 2
  • 3
Puslapio sukūrimo laikas: 0.292 sekundžių