Batch File | Como Dividir um Arquivo Texto em Múltiplos Arquivos Texto Menores

Suponha que precise dividir um arquivo texto enorme em arquivos texto menores. 

• 1. BATCH | Encadeamento de Comandos
• 2. BATCH | Lógica Condicional em Tarefas
• 3. BATCH | Coleta de Informações do Sistema
• 4. BATCH | Scripts de Logon
• 5. BATCH | Agendamento de Tarefas
• 6. BATCH | Criação de Atalhos Personalizados e Menus Simples
• 7. BATCH | Instalação e Execução de Software
• 8. BATCH | Administração e Manutenção do Sistema
• 9. BATCH | Gerenciamento de Arquivos e Pastas
• 10. BATCH | Automação de Tarefas Repetitivas
• 11. Paradox (Delphi) | Códigos Avançados - Atualizar registros em lote - Atualizando Registros em Lote com Delphi: Um Guia Prático - Advanced Code: Bulk Record Update & Practical Guide to Batch Processing in Delphi
• 12. Batch File | Como Dividir um Arquivo Texto em Múltiplos Arquivos Texto Menores

Como poderia fazer isso através de um Arquivo Batch no Windows?

@ECHO OFF

SETLOCAL

SET "sourcedir=C:\Sourcedir"

SET /a fcount=100

SET /a llimit=5000

SET /a lcount=%llimit%

FOR /f "usebackqdelims=" %%a IN ("%sourcedir%\q25249516.txt") DO (

 CALL :select

 FOR /f "tokens=1*delims==" %%b IN ('set dfile') DO IF /i "%%b"=="dfile" >>"%%c" ECHO(%%a

)

GOTO :EOF

:select

SET /a lcount+=1

IF %lcount% lss %llimit% GOTO :EOF

SET /a lcount=0

SET /a fcount+=1

SET "dfile=%sourcedir%\file%fcount:~-2%.txt"

GOTO :EOF

☕DOE UM CAFÉ

👉 Siga André Bernardes no Linkedin. Clique aqui e contate-me via What's App.

Comente e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com

 

 Compre OS LIVROS DESTA SÉRIE 

 Série Donut Project 

  

       

C# | Como Dividir um Arquivo Texto em Múltiplos Arquivos Texto Menores

 

Suponha que precise dividir um arquivo texto enorme em arquivos texto menores. 

Como poderia fazer isso usando o C#?

var list = new List();
var fileSuffix = 0;

using (var file = File.OpenRead(@"C:\Tmpfile.csv"))
using (var reader = new StreamReader(file))
{
  while (!reader.EndOfStream)
  {
  list.Add(reader.ReadLine());

    if (list.Count >= 1000000)
    {
    File.WriteAllLines(@"C:\Tmp\split" + (++fileSuffix) + ".csv", list);
    list = new List();
}
  }
    }

File.WriteAllLines(@"C:\Tmp\split" + (++fileSuffix) + ".csv", list);

VBA Excel - Como dividir o conteúdo de uma célula em diversas células - How to Split Text in a Cell to Multiple Cells using Excel VBA

| Blog Office VBA | Blog Excel | Blog Access |

Talvez tenhamos dentro de uma célula vários nomes de uma cidade separados por vírgula, mas queremos estes nomes em colunas separadas. Como fazê-lo?

Sub ConvertTxt2Rng()

    Dim sText As String, arText

    Let sText = Range("c16").Value

    Let arText = Split(sText, ";")

    Let Range("D16:D" & CStr(16 + UBound(arText))).Value =
    WorksheetFunction.Transpose(arText)

End Sub

Reference: http://vbadud.blogspot.com.br/

Tags: VBA, Excel, Split, Text, Cell, Multiple, Cells, Convert Text to Array in Excel VBA, Excel VBA Transpose, Excel VBA WorksheetFunction Transpose Function