-
Notifications
You must be signed in to change notification settings - Fork 0
/
processEmail.m
58 lines (38 loc) · 1.25 KB
/
processEmail.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
function word_indices = processEmail(email_contents)
vocabList = getVocabList();
word_indices = [];
email_contents = lower(email_contents);
email_contents = regexprep(email_contents, '<[^<>]+>', ' ');
email_contents = regexprep(email_contents, '[0-9]+', 'number');
email_contents = regexprep(email_contents, ...
'(http|https)://[^\s]*', 'httpaddr');
email_contents = regexprep(email_contents, '[^\s]+@[^\s]+', 'emailaddr');
email_contents = regexprep(email_contents, '[$]+', 'dollar');
fprintf('\n==== Processed Email ====\n\n');
l = 0;
while ~isempty(email_contents)
[str, email_contents] = ...
strtok(email_contents, ...
[' @$/#.-:&*+=[]?!(){},''">_<;%' char(10) char(13)]);
str = regexprep(str, '[^a-zA-Z0-9]', '');
try str = porterStemmer(strtrim(str));
catch str = ''; continue;
end;
if length(str) < 1
continue;
end
for i = 1:length(vocabList)
if strcmp(str,vocabList{i})
word_indices = [word_indices; i];
break;
end
end
if (l + length(str) + 1) > 78
fprintf('\n');
l = 0;
end
fprintf('%s ', str);
l = l + length(str) + 1;
end
fprintf('\n\n=========================\n');
end