標題: 將 csv 加上 "" [打印本頁]
作者: segaa 時間: 2008-3-23 07:05 PM 標題: 將 csv 加上 ""
複製內容到剪貼板
代碼:
procedure TForm1.Button1Click(Sender: TObject);
VAR sFile:TextFile;
tmp,str:String;
ipos,x:integer;
begin
memo1.Clear ;
tmp := '';
str := '';
x := 0 ;
ipos := 1 ;
OpenDialog1.Execute;
if OpenDialog1.FileName <> '' then
begin
AssignFile(sFile, OpenDialog1.FileName);
Reset(sFile);
while not Eof(sFile) do
begin
str := '' ;
Readln(sFile, tmp) ;
ipos := 1 ;
while ( ipos > 0) do
begin
iPos := Pos(',',tmp); //傳回逗號(,)字串於str字串的開始位置
if iPos = 0 then
begin
str := str + '"' + copy (tmp ,1,length(tmp) )+'"';
break
end else begin
str := str + '"' + copy (tmp ,1,ipos-1 )+'",';
tmp := copy (tmp,ipos+1,length(tmp));
end;
end;
inc(x);
memo1.Lines.Add(str);
end ;
CloseFile(sFile);
end;
end;程式不是很漂亮 
/ N& M4 ^$ R' ]
大概是這樣嚕 , 其實如果不需要回寫的話0 w( f, M+ c8 [$ q8 V
直接拿拆解出來的值來塞到 stringgrid 就可以用了
作者: xming777 時間: 2009-9-6 03:52 AM 標題: 漫山都是绿树
春天,家乡的小山上漫山都是绿树，别提有多美了！看：神鬼传奇柳树、杨树、松树、苹果树、梨树……，满眼的绿意。尤其是柳树，抽出嫩绿的新芽，长出了长长的大辫子。地下城与勇士一阵风吹来，长长的辫子摇来摇去，好象是让人欣赏她呢！小草从土里钻出来，毛茸茸的绿色，给小山穿上了美丽的裙子。我们躺在它身上，象躺在母亲的怀抱中，温暖惬意。. Z4 S% i P5 V1 _: o; N1 w
夏天，树木变得愈加茂盛成吉思汗满山绿树成荫。山上的小野花开了各式各样、芬芳扑鼻，给绿色的小山点缀上了缤纷的色彩。牛羊在山上悠闲地吃着草，吃饱了就卧在山坡上休息，给小山更增添了一丝光彩。
$ Y5 p' O0 |) W5 {5 n 秋天，嫩绿的小草逐渐发黄了，华夏树木的颜色也慢慢地由绿变黄。但是，小山却也别有一番风景。看！山上的一树树灯笼，红彤彤的是苹果树上的累累果实，黄澄澄的是梨，压得枝条都弯了腰。摘下一只，吃到嘴里，真甜呀！乡亲们带着笑意，采摘着丰收的果实，心里别提有多高兴了！一筐筐，一篓篓的水果成吉思汗带着乡亲们的希望，运出山，走向各地。
作者: e23232w 時間: 2009-9-9 04:59 PM 標題: 薯条工作站,肯德基麦当劳专用机
大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-84820855$ w5 @1 Z- T6 m8 a; N) D/ `4 S$ Q
QQ:99792190 44984055. ( x E; Y7 B2 K, K
薯条工作站,肯德基麦当劳专用机精品推荐
% A, _; n2 X |1 [4 z. p" q) R" u% P6 V
0 Q5 u: b f ^/ ~. l2 I6 q) S商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
" X. B& ~ H0 H! b
商品参数
! h- ]0 e0 V( p# s' b6 P- 商品名称：薯条工作站,肯德基麦当劳专用机
- 商品关键字： 薯条工作站, 肯德基麦当劳专用机
- 商品品牌：大连科信
- 商品型号：商用
- 商品等级：精品
- 市场价格：￥1550元
- 剩余数量：203台
- 关 注 度： 31233
0 p/ m ~2 T3 l0 e# r
详细说明 i' H u8 B8 O; I4 v! `
7 N" w) P \0 i. v8 t" U! n
/ N( v S& i% P0 H3 X! z! K
; \* ^7 `% p$ L
 | | 台式薯条工作站 D% t9 O1 o* L8 \) A
型号:ST-01 " \4 [( ?/ a) H% P# T
保温：红外线保温
3 F6 [) b' G" ?+ r% p U4 K5 }型号：KX-JG-1 ( x9 o' `/ I2 _8 `( R
规格：800x710x650mm
4 q' n* g7 V7 n- }电压：220V - K* Q- N4 F' H& Z! }
功率：0.6KW
) g* z( C q2 L/ C% J. L价格：1550元
! s- f2 a+ k0 w4 \# k# N+ \' s |
4 I1 u7 e% y+ _* i: _
 | | . Z5 y& A: \8 W% B% `; @% o
立式薯条工作站
: M, @2 ^' n, C, P4 z$ A" Z/ r型号: ST-02 3 H" b* ~% K4 q. r' o2 k
保温：红外线保温
+ r* J8 P2 }! c$ h: g. u型号：KX-JG-2 8 K+ M9 @# k+ X
规格：1000x700x1570mm ( g& y4 m% V) h W! h5 J; q& ^3 o
电压：220V $ I: {1 U- w" T3 y
功率：0.75KW
+ ]6 U1 m& \" x% j6 @! \; S价格：3980元
2 u( B. A! @5 B0 f |
, v9 G' |9 C% I
作者: 青松智慧 時間: 2009-9-25 05:32 AM 標題: 开学了,学校周边的房价上涨,好多房屋忙着改造!
近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
; K3 O( {6 N3 r/ U. J8 s2 a3 }& w" |" O/ w3 L
2 h2 O3 e3 w, U- qwww.okdhc.cn
4 i! B- J/ A, _$ s3 E: A% \, X/ F0 A6 h/ {& `3 ]4 O- u
2 f( E* s6 q4 n% y
( f, z# T0 Z9 S" @2 |( S0 b# n0 N% J
) P' ~2 a* c4 @
( ]6 T/ d) _# x) G0 P
( D; Z) q, \1 y9 Q
* H1 F, h, e! e* M+ `- t- F; o) Q
魔兽世界插件 热血江湖外挂 传奇外传外挂- A( A' r2 V$ S; u% ?( K8 l! O7 c
冒险岛外挂 DNF外挂
作者: g1tv8g 時間: 2009-10-13 07:45 AM 標題: 剑侠世界外挂2
剑侠世界外挂# S, N% D; Z/ I) P) e& {7 D
$ `0 m2 a* m: `; V$ X& y3 P游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新4 I9 V, Y4 k2 Q2 {. M
' i6 O3 q- m! B8 _7 D8 L
剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。 / g, u' J: f7 Z) j3 u
% @% p- t, ^8 J剑侠世界免费外挂. T% N- ~- n, o6 [
+ \; R2 }+ C7 h) J' \+ v为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有
. i+ C" d. ~. u/ }6 Q! H8 D2 P$ ^4 s' ]2 J$ Y
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
6 _# u V/ z. j3 |- p剑侠世界
% h6 F# ^. Z4 [# }- v, w9 t9 Z7 K9 h1 Y6 q7 t
www.hyfittings.com.cn www.hyfittings.com.cn3 M8 }+ W( s! J. N& \/ B
" f9 F# C+ N& ]$ N( [
1 Q/ |/ T+ }& ~" a1 ^
" [1 H# F. ?, G8 l3 w
作者: xming777 時間: 2009-10-17 04:14 AM 標題: 代言广告的影响
公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。# |6 [$ z+ j" o8 J U9 L$ C
$ m4 I! T. m+ [7 B/ V
日子就这么一天天星尘传说外挂过下去。) k* z' y$ h, F7 X
8 X5 b! E1 n3 c" y- B# T某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。+ O: B! l+ q9 _" H0 {5 w; t* i
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
/ h! r; P( j5 r终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？
作者: fack10 時間: 2010-1-16 01:59 PM 標題: 支持！
支持！, {9 o9 h* r g% n3 d" j5 }8 d& i
k& v( l' _ A8 c2 c
; Q* c q- q. u( y3 C. M
% C3 o0 ~. e" N& M: b# G. t( z6 P5 N( J4 k. x5 G! z
7 W5 z5 Z* `: E- Y/ B2 l+ e. K
e1 A* t5 b/ S1 d) O8 |- A' Z
N( T, j; J8 N8 j7 U# N; m
q( t0 ?6 {- a Y
# P0 M9 d( h4 x' H* C3 U! X2 V4 ]6 \' H
% R2 \9 s- F# l
7 ?4 v- w1 o9 n# k: `
5 b" }" q: X, y: d9 d' e yQ345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管
作者: fack10 時間: 2010-4-15 10:37 PM 標題: 支持！
支持！
r: i5 b" E7 d/ B, b1 C# N$ F4 a$ r
5 D5 J; ~! |# R0 c' y+ k2 |7 r7 @' [/ F9 i4 w; ^
. `; W! N: D# A- |) L
) T: c7 T5 `& |3 a$ Q
# d8 Z3 X1 v: t, t: }' B3 `% Z
9 @5 ]2 \% m4 o+ M6 M9 _2 i- K
. D1 c! n8 ?( P, l7 U2 s
6 I9 q* W& a$ q0 R; j3 p6 i/ J9 A) H6 k
; ?4 Z: z1 j: A# P: v5 H# N" D! q
# Z( R |" P$ d8 L) A6 f. R
* X& b: J3 p, Z; x0 L. W% K矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管
| 歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) |
Powered by Discuz! 6.0.0 |