Outro Converter arquivos .dat para .txt

[Gabriele Pessoa]

Gostaria de saber se há outro modo de converter arquivos .dat para .txt além do MatLab. O MatLab que uso não está abrindo e aparece uma mensagem para ativar o software - a qual surge quando se instala o programa -, e mesmo ativando, o programa não abre. 

 

 

Att

[Basole]

voce pode usar o excel: 

How to Convert DAT to Text in Excel

 

Se for algo mais especifico, e dependendo da formatação, pode usar vba: 

Sub DatToTxt()

Dim Data As String
Dim Ext As String
Dim FF1 As Integer
Dim FF2 As Integer
Dim FileFilters As String
Dim File_Name
Dim FileName1 As String
Dim FileName2 As String
Dim I As Long
Dim Msg As String

'Display the Open File dialog
FileFilters = "Data Files (*.dat),*.dat,Text Files (*.txt),*.txt,All Files (*.*),*.*"
File_Name = Application.GetOpenFilename(FileFilters)

'Was Cancel pressed?
If File_Name = False Then Exit Sub

'Get the file's extension
I = InStr(1, File_Name, ".")
If I > 0 Then
Ext = Right(File_Name, Len(File_Name) - I + 1)
End If

'Check extension is .DAT
If LCase(Ext) <> ".dat" Then
MsgBox "Error - Source file must have .DAT extension", vbCritical + vbOKOnly
Exit Sub
End If

'Set source and destination file names
FileName1 = File_Name
FileName2 = Left(File_Name, I) & "txt"

On Error GoTo FileError

'Replace semicolons with commas
FF1 = FreeFile
Open FileName1 For Input As #FF1
FF2 = FreeFile
Open FileName2 For Output As #FF2
Do While Not EOF(FF1)
Line Input #FF1, Data
Data = Replace(Data, ";", ",")
Write #FF2, Data
Loop
Close #FF2
Close #FF1

Exit Sub

FileError:
Msg = "The following error has occurred" & vbCrLf _
& " Error #" & Err.Number & vbCrLf _
& " " & Err.Description
MsgBox Msg, vbCritical + vbOKOnly

End Sub