標題: 將 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;程式不是很漂亮 
8 B, s- n& L) A* j. I
大概是這樣嚕 , 其實如果不需要回寫的話1 X* h2 d7 |" `* M' x. L1 H
直接拿拆解出來的值來塞到 stringgrid 就可以用了
作者: xming777 時間: 2009-9-6 03:52 AM 標題: 漫山都是绿树
春天,家乡的小山上漫山都是绿树，别提有多美了！看：神鬼传奇柳树、杨树、松树、苹果树、梨树……，满眼的绿意。尤其是柳树，抽出嫩绿的新芽，长出了长长的大辫子。地下城与勇士一阵风吹来，长长的辫子摇来摇去，好象是让人欣赏她呢！小草从土里钻出来，毛茸茸的绿色，给小山穿上了美丽的裙子。我们躺在它身上，象躺在母亲的怀抱中，温暖惬意。* A$ p+ R0 Z) @% J' J
夏天，树木变得愈加茂盛成吉思汗满山绿树成荫。山上的小野花开了各式各样、芬芳扑鼻，给绿色的小山点缀上了缤纷的色彩。牛羊在山上悠闲地吃着草，吃饱了就卧在山坡上休息，给小山更增添了一丝光彩。3 y6 T9 S7 C! w/ M
秋天，嫩绿的小草逐渐发黄了，华夏树木的颜色也慢慢地由绿变黄。但是，小山却也别有一番风景。看！山上的一树树灯笼，红彤彤的是苹果树上的累累果实，黄澄澄的是梨，压得枝条都弯了腰。摘下一只，吃到嘴里，真甜呀！乡亲们带着笑意，采摘着丰收的果实，心里别提有多高兴了！一筐筐，一篓篓的水果成吉思汗带着乡亲们的希望，运出山，走向各地。
作者: e23232w 時間: 2009-9-9 04:59 PM 標題: 薯条工作站,肯德基麦当劳专用机
大连科信机械厂0411-84820855专业提供小型机械致富机械无需加盟同样效果网址www.kexin118.com; 电子手摇配钥匙机,验钞式点钞机,补鞋机手机加香机,长效香料,衣物加香机,美甲机,烤鸟蛋机,食品搅拌机,冷面板面机,压面机,肉丸机,班戟炉投币感应擦鞋机 封口机,豆浆机,蛋卷机,脆皮机,蛋塔机,刨冰机,爆米花机系列,棉花糖爆米花组合机,多功能饺子机,章鱼小丸子机,烤肠机,电扒炉,韩国铁板烧, 炒货机 ,珍珠奶茶封杯机及原料,固体酒精封杯机设备,电子手摇配钥匙机 ,关东煮机,豆芽机,多功能膨化机,饲料膨化机,无烟烧烤炉,中东烤肉炉制冰机,香酥棒机,旋转式啤酒烤鸭炉,各种红外线烧烤机,电炸炉,蛋糕机,多功能切菜机 多功能粉碎机,, 汉堡包机,贝壳酥机,鱼丸机,包饺子机,梅花糕机,豆浆机,浆渣分离机,煎饼机,膨化机,等系列网址www.kexin118.com批 发零 售量大优惠.电话:0411-84820855,84792022,86949198,FAX:0411-84820855
1 k h* C3 t& [( SQQ:99792190 44984055. , J2 L: }) U9 M+ B! a I
薯条工作站,肯德基麦当劳专用机精品推荐
* @" g" i. I9 V; {; \7 y2 f3 }' e0 f+ q) z1 F' L! ~
商品简介：台式薯条工作站 型号:ST-01 保温：红外线保温 型号：KX-JG-1 规格：800x710x650mm 电压：220V 功率：0.6KW 价格：1550元 &nbs
) A: T# \ O# O! k( C
商品参数/ B9 C% x) R5 l: V
- 商品名称：薯条工作站,肯德基麦当劳专用机
- 商品关键字： 薯条工作站, 肯德基麦当劳专用机
- 商品品牌：大连科信
- 商品型号：商用
- 商品等级：精品
- 市场价格：￥1550元
- 剩余数量：203台
- 关 注 度： 31233
, p' p+ G0 ~8 F0 y2 ~% ?6 T; a# k 详细说明+ q* c/ E% c1 D; d0 I, ?7 N5 `
9 }0 @3 b! g) |4 Y/ v3 N
/ x! B6 S: c, W4 \; {% |$ k
, X |% m5 C# ?3 k6 i, E+ c
 | | 台式薯条工作站 : S/ }& K% N* h1 [% W w
型号:ST-01 : h7 J0 y. Z0 l" I+ \
保温：红外线保温
. g1 i/ C$ {/ @9 y, w: @型号：KX-JG-1 ' `5 W7 z* K/ X. I
规格：800x710x650mm # p" j3 R L( t* W" |
电压：220V & {& I: x- n7 y$ b
功率：0.6KW w* L) s* g5 }3 K4 w, |
价格：1550元 7 m# p T& X- r6 W' l' e' W% y
|
: P q$ Q$ O- O8 r/ A | | ; e3 d7 _1 [9 g; s
立式薯条工作站
7 ]& Q; q0 m0 [3 H% H( f- c, K型号: ST-02
) {( g; F/ D- m- k9 J% r& J" E) p$ _7 b保温：红外线保温
3 e9 R% k7 \5 }6 Q) Z型号：KX-JG-2
# q, m5 T3 |% `* C: Z3 n+ ? I规格：1000x700x1570mm 0 P9 Y3 [, _4 ?- ^
电压：220V
, B5 l- J0 C$ r$ ^功率：0.75KW 9 D9 |; _( m5 W s3 V
价格：3980元
& O/ A. b2 a' j& K F) ^ |
/ J/ O- U2 a$ w
作者: 青松智慧 時間: 2009-9-25 05:32 AM 標題: 开学了,学校周边的房价上涨,好多房屋忙着改造!
近来,开学学校周边的房东都在改造自已房子,把大房间改成几个房间.这是为什么呢.大家仔细想一下.为了大家的安全.大家要多想!!!!' e6 i* m' D' l7 s, C
* ]1 u( d8 l/ u& o) Y7 }" f$ q8 y2 ~0 W1 G5 @
www.okdhc.cn
, J3 a9 p/ u) O3 O
: h% H& [8 c5 \2 e( y4 x" J
' D" Z8 V4 P3 K) m5 }1 |
) g. F/ E# C) \ b4 A$ a5 X0 t5 B& Z2 `
' W! e7 H) A' I; x8 b! t5 }
* I2 ]: p7 e- K, {, t4 w( n3 [
$ o7 c, `8 d$ g7 P* ^( B
! u+ m; f4 y7 f& w: Q7 d1 H/ R7 l! l# U/ G
魔兽世界插件 热血江湖外挂 传奇外传外挂( s9 q' L7 W3 A, ?6 x8 w( c- q
冒险岛外挂 DNF外挂
作者: g1tv8g 時間: 2009-10-13 07:45 AM 標題: 剑侠世界外挂2
剑侠世界外挂
. n ~- I9 P& V- h
' m# M( a! E; e4 o q! t( D游戏一起玩-剑侠世界交易平台,是目前国内最大的剑侠世界交易平台,为您提供深圳、长沙、武汉等多个大城市最新# V( p4 Y i7 x4 Q% |& I2 c" e
. T N0 n, b3 V. W c$ n5 [* U剑侠世界外挂,剑侠世界账号、金币、装备等交易信息，欢迎访问。
4 z- c" A: M/ B3 D1 K
2 j$ U7 y7 b. ]剑侠世界免费外挂
6 I2 p) e) \, X1 ]5 N7 ]* `$ x0 F6 O, W
为您提供最新剑侠世界信息以及最新外挂(剑侠世界外挂)下载 所有 H; Y2 j4 @7 D. ^: t' W8 P2 {
) l* h2 w U5 e* m剑侠世界外挂全部为最新的免费外挂 请一定记住我们的网址% f( R% F; f: e7 x0 S c) p1 R
剑侠世界2 K4 F0 ^* ?) E+ ?! B
5 K% @ Q/ N; d$ I! @! x; Uwww.hyfittings.com.cn www.hyfittings.com.cn/ Z+ T) ~! ?" x
0 Z; B5 c) v" ?* u2 t- T
$ L- u2 L% k( q2 J S* X
2 o5 i2 E$ ]1 s! A* ^
作者: xming777 時間: 2009-10-17 04:14 AM 標題: 代言广告的影响
公司的QQ华夏外挂一个同事，非常漂亮。经过大家的讨论，得出结论，她和关之琳非常像。! n0 b$ S9 {# Q. `) F
3 u4 t7 y& X m: W4 Z$ _: z日子就这么一天天星尘传说外挂过下去。; m/ S: B* x+ X6 @. L3 Q
. I. }, J B4 }% o0 X
某一天，公司楼下电梯厅装了一个液晶电视，不断的播放广告，翻来覆去冒险岛外挂就是那几个。其中关之琳没隔2分钟出来说一次：感觉不舒服吗？请用永恒之塔外挂洁尔阴洗液。一分钟，轻松做女人。8 Y! b/ W+ R* a% T& O
我们一直觉得这个广告汗~~~~ 我们公司那小妹多纯洁一人啊。5 x# T5 O! c9 @9 r
终于此小妹在潜移默化中爆发了。今天早上，我，她，以及诛仙外挂另外两个同事一起上班等电梯。我因为吃东西不爽，皱着眉头。她关心的来了一句：感觉不舒服吗？
作者: fack10 時間: 2010-1-16 01:59 PM 標題: 支持！
支持！" `, w0 E& d" F. k w7 O# n& Q# h
* Z& b% O6 x5 b- w1 Q
8 N( _! v( M( O8 x" B; i: w. f: a7 p# o. a+ {5 O3 q
% v8 Q( [- s! ?
2 H. i$ d( L1 m3 K. k- i
8 w0 L1 y, T% c, R0 Z
- P0 j t" z0 w0 f _$ k1 d% [# ]2 {3 O6 i: |- k0 A* T- c* \
" Q5 z1 s* q2 b' d0 m
: p! Y- Z) N Z1 L( F
& z5 H5 L; u f# g, w6 o
6 h- S# K- N6 J8 O
1 Q2 F; U4 G/ s1 M3 o+ t( h8 S2 k
Q345b圆钢 Q345c圆钢 Q345d圆钢 45#无缝管 低温管
作者: fack10 時間: 2010-4-15 10:37 PM 標題: 支持！
支持！' n" ?: _% R u# y0 B V# L( T
9 o) @* l3 C. H3 U: a! ^
& l% W$ p% P2 }
& A" ?* E2 \7 l- S5 _: _
! y& v8 p* y* Q4 g. i8 B& J* F }3 G ?7 S
0 D, j, k& u" M# S, Q: j
) {$ L. g. ]* l. N) D S8 r
: A: S q4 t2 l9 b+ c+ v6 f3 p
. c; J0 e3 I, `/ A) s" T8 `% o$ ^' [, _7 [4 M& f! t4 f$ y9 s
& K1 `. v p6 b6 o
" Z0 u/ N' @0 W# E2 E- o) i' b, d4 H" H
矩管 方矩管 无缝方管 无缝矩钢管 不锈钢方管
| 歡迎光臨 幸運草之戀 (http://discuz.segaa.net/) |
Powered by Discuz! 6.0.0 |