Board logo

標題: 將 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;
程式不是很漂亮
& h( |6 @  \# L; W2 P大概是這樣嚕  , 其實如果不需要回寫的話: h) l  d/ J$ e5 D* _
直接拿拆解出來的值來塞到 stringgrid 就可以用了
作者: xming777    時間: 2009-9-6 03:52 AM     標題: 漫山都是绿树

　春天,家乡的小山上漫山都是绿树，别提有多美了！看：神鬼传奇柳树、杨树、松树、苹果树、梨树……，满眼的绿意。尤其是柳树，抽出嫩绿的新芽，长出了长长的大辫子。地下城与勇士一阵风吹来，长长的辫子摇来摇去，好象是让人欣赏她呢！小草从土里钻出来，毛茸茸的绿色，给小山穿上了美丽的裙子。我们躺在它身上，象躺在母亲的怀抱中，温暖惬意。
  ], z1 p2 T, G; R/ [1 c　　夏天，树木变得愈加茂盛成吉思汗满山绿树成荫。山上的小野花开了各式各样、芬芳扑鼻，给绿色的小山点缀上了缤纷的色彩。牛羊在山上悠闲地吃着草，吃饱了就卧在山坡上休息，给小山更增添了一丝光彩。
% i# h) T# y5 [: o$ t4 T4 z　　秋天，嫩绿的小草逐渐发黄了，华夏树木的颜色也慢慢地由绿变黄。但是，小山却也别有一番风景。看！山上的一树树灯笼，红彤彤的是苹果树上的累累果实，黄澄澄的是梨，压得枝条都弯了腰。摘下一只，吃到嘴里，真甜呀！乡亲们带着笑意，采摘着丰收的果实，心里别提有多高兴了！一筐筐，一篓篓的水果成吉思汗带着乡亲们的希望，运出山，走向各地。
作者: e23232w    時間: 2009-9-9 04:59 PM     標題: 薯条工作站,肯德基麦当劳专用机

大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-84820855
7 g: R* P" N9 H2 i0 B3 GQQ:99792190 44984055. $ M9 n0 k& x9 ^+ n. n$ Z
薯条工作站,肯德基麦当劳专用机精品推荐
% H. L: s. F7 b
6 o' L! L. \- |; T, P8 z" A# A7 y# J商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
8 j) s% Z4 _) Y 商品参数
8 G8 e9 w7 ?/ n. V- `, v9 D" s# V1 U. F- Z' Y" V; a" h
详细说明
7 L) t+ w% ?% b0 F% Q  }9 S7 U% f) B: e& O: F/ Q$ C
$ E3 N& T1 N9 a, {8 d

! o3 g- `9 n1 P6 o' N+ v

               

                  

台式薯条工作站

- z% x5 T5 g/ @7 L& g

型号:ST-01

# j8 g! l# Y5 `" @8 P, Q

保温：红外线保温


; Z# R0 N0 \# d" ^( S# B

型号：KX-JG-1

4 U* X/ |) J' i5 W. D; [

规格：800x710x650mm


0 S8 t3 [* _1 A6 q( L4 n3 P

电压：220V

; U2 F' w# W- z, X6 y4 C( I; X

功率：0.6KW

% o# i$ \$ f4 }! h& O; F* E5 n

价格：1550元            


. ~, @& q, K# Z


' ^* @: ^& f% e  k  X2 S: y2 j

                  " x( T+ f3 S2 D. e2 Z6 ~6 `

立式薯条工作站


( E  I9 D* f) @$ g( S

型号: ST-02

+ E: y; _$ V' R4 M% x

保温：红外线保温


/ t5 O( ?* o: m4 G. U, ~% ?7 P9 r

型号：KX-JG-2


7 \4 P! w  T7 v$ g

规格：1000x700x1570mm


* n- L2 E4 T1 g0 `0 @& M

电压：220V

% G2 d* L9 a% x5 W

功率：0.75KW

2 |2 _# }; U+ u# I/ \1 K

价格：3980元           

; r; }. V) Z, ~


+ m" q* U+ E  _

作者: 青松智慧    時間: 2009-9-25 05:32 AM     標題: 开学了,学校周边的房价上涨,好多房屋忙着改造!

近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!
7 C; l$ ?7 g: }8 i
2 z3 e8 y& I) z' L% G; K% m' C3 i; y- @9 U
www.okdhc.cn) \6 @" m9 [2 c4 P, b$ |4 M
2 u, J3 c* x  C
9 Z/ F* z* a4 q. Q  A

4 n8 m# u; G: K/ Y' [5 a' r, |8 B+ B, u# w

/ l7 Q5 L' N" H  |
( s' u' l/ K. w) s, R& A: V# \3 _$ g7 X7 l/ K

1 x) I9 y+ }4 Z$ g' k! F0 M6 S! V6 P: L8 M& j
魔兽世界插件  热血江湖外挂   传奇外传外挂  D* c% b' e- Q
冒险岛外挂    DNF外挂
作者: g1tv8g    時間: 2009-10-13 07:45 AM     標題: 剑侠世界外挂2

剑侠世界外挂" I" b$ x% [9 s, S4 J
# B5 P7 w0 k+ R! B
游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新
1 c; ~3 `: n( n
; k/ T4 W5 x: x4 J+ N+ f剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。
2 m- {; r+ N$ W1 ~) p4 r. P6 B9 ]9 V$ m" j6 {
剑侠世界免费外挂' C( ^$ x) M9 k! A6 I# C

) P8 Z- T4 d( @" {为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有/ R9 P0 D% i8 P) ^; ]8 R, u
- h: c0 b9 d! O8 D4 y! q) e+ X0 e& {
剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址
( _0 G6 @- {" `3 `剑侠世界
% }2 X- P2 @7 h0 q) ~# m
. B5 Y2 B+ n1 ]* rwww.hyfittings.com.cn   www.hyfittings.com.cn7 \! B/ W  _" O3 z9 t

# p- ], R$ ^2 z5 F. x5 x* r/ w1 _- ~, U' y+ s/ T& u+ _. Z
8 o; _' `4 H" |6 t+ R6 {
作者: xming777    時間: 2009-10-17 04:14 AM     標題: 代言广告的影响

公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。- ]& [. E" |1 K  o" m9 L6 U8 s

1 a! I+ j$ K( M/ J5 E" `日子就这么一天天星尘传说外挂过下去。+ M3 R- _! A2 n% n0 y3 h4 ^

, F* c& A! `' O: j7 z% x某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。
" q+ x6 ~; Z2 j) l4 L% s0 t我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。
+ W+ E) x; h: E- H终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？
作者: fack10    時間: 2010-1-16 01:59 PM     標題: 支持！

支持！
' B3 w8 D, Y& I* D% ^6 {! o2 U: m2 W" Q. w7 A5 J8 d3 Z2 p1 d! f

7 ]% W; D/ k+ `1 E7 ]; B7 c. \1 F2 r( l! {% U3 Q2 ^' w8 A
7 q* {7 A, f; ?+ ]6 U; f

- @+ h) N4 v9 i
2 l# G0 l8 e" ^1 `* K, m
4 D4 V8 n) o7 ?/ {9 _6 V5 \, ~2 B* |6 C6 q2 T" N, ^

+ F* U) L- b( L3 L/ U. o$ C* ^; y9 l$ t
8 k" K( W9 d3 z3 M" O# `6 U( ~

, |/ `. B1 n  v3 J' D8 t5 {4 X6 b- f, j. M' B% \& ^
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管
作者: fack10    時間: 2010-4-15 10:37 PM     標題: 支持！

支持！8 }; s& p. O% Y9 `3 g
; b8 ~, H9 t) d, j# P. }

! \1 Y9 ^, `; m" G* H6 g4 X+ M5 j6 B, a" f) U6 r

+ o9 q9 c" w2 ~' Y/ {- T3 s1 p/ M8 p6 y# ~9 }  b
3 E" X! N8 q6 f$ b- i3 O7 O
$ ?2 O5 ~5 v( b7 b; v
2 `! y6 P/ t- Y' {; P

% q* C8 x8 z4 C. e; h; o- q# E8 }6 o1 o, G

( }" u  u& C7 I( d6 N6 f/ e) d# O7 }0 t, L

) n/ Y0 e1 o  P( Y8 {2 m矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管



歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) Powered by Discuz! 6.0.0