示例为：对文件进行处理
将 xml报文格式的报文转为lua 去取值
如由 

1
<khxm><name>姓名</name><value>123</value></khxm>

转为 

1
this.hqzhxx_ccsz_name = body['hqzhxx']["ccsz"]['name']  or "";--持仓市值

txt1.txt文件内容如下：

1
2
3
<cpgg><name>产品规格</name><value>123克</value></cpgg>
<gmsl><name>购买数量</name><value>234个</value></gmsl>
<gmfe><name>购买份额</name><value>345克</value></gmfe>

转换后要的效果如下：

1
2
3
4
5
6
this.cpgg_name = body['cpgg']['name'] or '';--产品规格
this.cpgg_value = body['cpgg']['value'] or '';--产品规格
this.gmsl_name = body['gmsl']['name'] or '';--购买数量
this.gmsl_value = body['gmsl']['value'] or '';--购买数量
this.gmfe_name = body['gmfe']['name'] or '';--购买份额
this.gmfe_value = body['gmfe']['value'] or '';--购买份额

erl处理文件(file_change.erl)代码如下：

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
59
60
61
62
63
64
65
66
67
68
69
70
71
-module(file_change).
-export([process/2]).

%对文件进行处理
%将 xml报文格式的报文转为lua 去取值
%如由 <khxm><name>姓名</name><value>123</value></khxm> 转为 
%this.hqzhxx_ccsz_name = body['hqzhxx']["ccsz"]['name']  or "";--持仓市值

process(FileIn, FileOut)->
	{Status,Value} = file:open(FileIn,read),
	if Status =:= ok ->
			io:format("==== open successed ====!~n"),
			Tokens = readFile(Value),%%读取文件并处理
			io:format("file_value------~p ~n",[Tokens]),
			file:write_file("./"++FileOut,[Tokens]),%%写文件
			io:format("==== end ===!~n");
	   	Status =/= ok ->
			io:format("open file error!")
	end.
	
readFile(Value) ->
	readFile(Value,[]).

readFile(Value,ReturnList) ->
	OneLine = io:get_line(Value,""),%一行一行读取文件
	if 
		OneLine =:= eof -> %文件末尾标记 文件结束,关闭文件
			io:format("acrss the file end! ~n"),
			file:close(Value),
			ReturnList;
		OneLine =/= eof ->
			Tokens = string:tokens(OneLine,"< > /> \n"),% 使用多个分隔符把字符串分割

			Len = string:len(Tokens),%获取一个字符长度
			if  Len =:= 0 ->
					io:format(" end to read ~n"),
					file:close(Value),
					ReturnList;
				Len =/= 0 ->
					%对一行的数据进行处理
					io:format(" the line Value ~p~n",[OneLine]),
					%<khxm><name>姓名</name><value>123</value></khxm>
					%this.hqzhxx_ccsz_name = body['hqzhxx']["ccsz"]['name']  or "";--持仓市值
					%%取出列表对应个数的值
					Tokens_1 = lists:nth(1,Tokens),%
					Tokens_2 = lists:nth(2,Tokens),%name
					Tokens_3 = lists:nth(3,Tokens),%注解
					Tokens_5 = lists:nth(5,Tokens),%value

					%对字符串进行拼接
					BB = "this." ++ Tokens_1 ++ "_" ++ Tokens_2,
					BB2 = "this." ++ Tokens_1 ++ "_" ++ Tokens_5,
					CC  = "body['" ++ Tokens_1 ++"']['" ++Tokens_2++ "']",
					CC2  = "body['" ++ Tokens_1 ++"']['" ++Tokens_5++ "']",
					DD = " or '';--" ++Tokens_3,
					EE = BB ++ " = " ++ CC ++ DD ++ "\n",
					EE2 = BB2 ++ " = " ++ CC2 ++ DD ++ "\n",

					GG =string:concat(EE,EE2),%将两个字符串列表拼接

					% io:format(" the line Value BB ~p~n",[BB]),
					% io:format(" the line Value BB2 ~p~n",[BB2]),
					% io:format(" the line Value CC ~p~n",[CC]),
					% io:format(" the line Value CC2 ~p~n",[CC2]),
					% io:format(" the line Value DD ~p~n",[DD]),
					% io:format(" the line Value EE ~p~n",[EE]),
					% io:format(" the line Value EE2 ~p~n",[EE2]),
					NewDic = string:concat(ReturnList,GG),
					readFile(Value,NewDic)
			end
	end.

在erlang shell 输入如下：

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
7> c(file_change).                              
{ok,file_change}
8> file_change:process("./txt1.txt","txt3.txt").
==== open successed ====!
 the line Value [60,99,112,103,103,62,60,110,97,109,101,62,228,186,167,229,
                 147,129,232,167,132,230,160,188,60,47,110,97,109,101,62,60,
                 118,97,108,117,101,62,49,50,51,229,133,139,60,47,118,97,108,
                 117,101,62,60,47,99,112,103,103,62,10]
 the line Value [60,103,109,115,108,62,60,110,97,109,101,62,232,180,173,228,
                 185,176,230,149,176,233,135,143,60,47,110,97,109,101,62,60,
                 118,97,108,117,101,62,50,51,52,228,184,170,60,47,118,97,108,
                 117,101,62,60,47,103,109,115,108,62,10]
 the line Value [60,103,109,102,101,62,60,110,97,109,101,62,232,180,173,228,
                 185,176,228,187,189,233,162,157,60,47,110,97,109,101,62,60,
                 118,97,108,117,101,62,51,52,53,229,133,139,60,47,118,97,108,
                 117,101,62,60,47,103,109,102,101,62]
acrss the file end! 
file_value------[116,104,105,115,46,99,112,103,103,95,110,97,109,101,32,61,32,
                 98,111,100,121,91,39,99,112,103,103,39,93,91,39,110,97,109,
                 101,39,93,32,111,114,32,39,39,59,45,45,228,186,167,229,147,
                 129,232,167,132,230,160,188,10,116,104,105,115,46,99,112,103,
                 103,95,118,97,108,117,101,32,61,32,98,111,100,121,91,39,99,
                 112,103,103,39,93,91,39,118,97,108,117,101,39,93,32,111,114,
                 32,39,39,59,45,45,228,186,167,229,147,129,232,167,132,230,
                 160,188,10,116,104,105,115,46,103,109,115,108,95,110,97,109,
                 101,32,61,32,98,111,100,121,91,39,103,109,115,108,39,93,91,
                 39,110,97,109,101,39,93,32,111,114,32,39,39,59,45,45,232,180,
                 173,228,185,176,230,149,176,233,135,143,10,116,104,105,115,
                 46,103,109,115,108,95,118,97,108,117,101,32,61,32,98,111,100,
                 121,91,39,103,109,115,108,39,93,91,39,118,97,108,117,101,39,
                 93,32,111,114,32,39,39,59,45,45,232,180,173,228,185,176,230,
                 149,176,233,135,143,10,116,104,105,115,46,103,109,102,101,95,
                 110,97,109,101,32,61,32,98,111,100,121,91,39,103,109,102,101,
                 39,93,91,39,110,97,109,101,39,93,32,111,114,32,39,39,59,45,
                 45,232,180,173,228,185,176,228,187,189,233,162,157,10,116,
                 104,105,115,46,103,109,102,101,95,118,97,108,117,101,32,61,
                 32,98,111,100,121,91,39,103,109,102,101,39,93,91,39,118,97,
                 108,117,101,39,93,32,111,114,32,39,39,59,45,45,232,180,173,
                 228,185,176,228,187,189,233,162,157,10] 
==== end ===!
ok
9>

注：本示例txt1.txt 和txt3.txt 都在file_change.erl同级目录