Jump to content
Sign in to follow this  

CVS export is an unholy mess :(

Recommended Posts


I tried to export my password to CVS and it produced the most messy file it can, notes mixed in with usernames, usernames mixed in with urls ... etc. It's practically unusable unless I sit and fix everything manually! 

  • Thanks 1

Share this post

Link to post
Share on other sites

I have been using Enpass on Android and Linux without issue. Because my old phone is having issues with Google Play Services I have installed an AOSP ROM which means Enpass just crashes on start. I thought I would use Keepassx on the phone but holy crap the CSV coming out of Enpass is unusable. It seems the extra fields trip up the export and would need so much editing it is not worth it. 

So I sit with Enpass and Keepassx on the desktop copying and pasting fields like the old days. 

Any idea when this could get looked at?

This Perl script can translate the export into something that another manager (KeepassX) can import.


use strict;

# Usage enpass_csv_clean.pl Documents/Exports/Enpass_2018-11-16_12-54-46.csv 
# File will be generated in the same directory but with CLEAN added into the name
# Please then import into another application and delete the unprotected files!
# This file must be in your $PATH

my $infile = @ARGV[0];

unless ($infile) {
	print "Cannot find file, exiting\n";

unless (lc $infile =~ "\.csv") {
	print "Not a CSV file, exiting\n";

my $outfile = $infile;
$outfile =~ s/.csv/CLEAN.csv/;    
our @csvfile = ();
open( FILE, "<$infile" ) || die("Unable to open $infile $!");
flock( $infile, "1" );
chomp( @csvfile = <FILE> );
my @title = ();
my @username = ();
my @password = ();
my @email = ();
my @url = ();
our $count = 0;

foreach my $line (@csvfile) {
	$line =~ s/^.(.*).$/$1/;
	$line =~ s/","/|/g;
	my @values = split /\|/, $line;
	$title[$count] = $values[0];
	if    (lc $values[1] eq "username") { $username[$count] = $values[2]; }
	elsif (lc $values[3] eq "username") { $username[$count] = $values[4]; }
	elsif (lc $values[5] eq "username") { $username[$count] = $values[6]; }
	elsif (lc $values[7] eq "username") { $username[$count] = $values[8]; }
	if    (lc $values[1] eq "email") { $email[$count] = $values[2]; }
	elsif (lc $values[3] eq "email") { $email[$count] = $values[4]; }
	elsif (lc $values[5] eq "email") { $email[$count] = $values[5]; }
	elsif (lc $values[7] eq "email") { $email[$count] = $values[7]; }
	if    (lc $values[1] eq "password") { $password[$count] = $values[2]; }
	elsif (lc $values[3] eq "password") { $password[$count] = $values[4]; }
	elsif (lc $values[5] eq "password") { $password[$count] = $values[6]; }
	elsif (lc $values[7] eq "password") { $password[$count] = $values[8]; }
	if    (lc $values[1] eq "url") { $url[$count] = $values[2]; }
	elsif (lc $values[3] eq "url") { $url[$count] = $values[4]; }
	elsif (lc $values[5] eq "url") { $url[$count] = $values[6]; }
	elsif (lc $values[7] eq "url") { $url[$count] = $values[8]; }

my $total = $count;

$count = 0;
my $success = 0;

open( FILE, ">$outfile" )
      || die "Cannot write to $outfile";
    print FILE "\"Title\",\"Username\",\"Password\",\"Email\",\"URL\"\n";

while ($count <= $total) {
	my $id = 0;
	if ($username[$count] ne "" || $email[$count] ne "") { $id = 1; }
	if ($title[$count] ne "" && $id == 1 && $password[$count] ne "") {
	print FILE "\"$title[$count]\",\"$username[$count]\",\"$password[$count]\",\"$email[$count]\",\"$url[$count]\"\n";

print "$success entries copied to $outfile\n";


Edited by SimonJ
Script added

Share this post

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

  • Create New...